программа из одной строчки ни Perl 0

Как всегда куча фраз дятлов с именами анонимоус…

так выражаются только на ЛОР!!!

Мне понравилось.

Класс!

Всегда хотел разобраться со странными программами такого типа на perl. Вот и займусь этим в ближайшее время, раз уж повод появился ;)

Вот, кстати, подобная, но АБСОЛЮТНО безобидная (честно-честно :)), программа на Perl (запускайте под root’ом :)) — шутка):

#!/usr/bin/perl -w

$\=’`'|«’»;$\++;$;=’/'|’`';$;++;$;++;$;++;$,=$;;$,++;$/=$,;$/++;$:=$/;$:++;$_=

'%’|'`’;$_.=’`'|’#';$_.=$\;$_.=’`'|’/';$_.=$«.’»';$_.=’@'|’*'&~’!';$_.=«$:$,$/»

..$«;$_.=’`'|’!';$_.=’`'|’.';$_.=’/'|’`';$_.=$/.$\;$_.=’%'|’`';$_.=$;.$»;$_.=’@'

|’:'&~’*';$_.=’`'|’%';$_.=$;;$_.=’`'|’,';$_.=$».$\;$_.=’`'|’!';$_.=’#'|’`';$_.=

'+’|'`’;$_.=’`'|’%';$_.=$;.’«'.$».’>&’;$_.=$,&’:';`$_`;

SHuRuP
#!/usr/bin/perl -w

$\=’`'|«’»;$\++;$;=’/'|’`';$;++;$;++;$;++;$,=$;;$,++;$/=$,;$/++;$:=$/;$:++;$_=

'%’|'`’;$_.=’`'|’#';$_.=$\;$_.=’`'|’/';$_.=$«.’»';$_.=’@'|’*'&~’!';$_.=«$:$,$/»

..$«;$_.=’`'|’!';$_.=’`'|’.';$_.=’/'|’`';$_.=$/.$\;$_.=’%'|’`';$_.=$;.$»;$_.=’@'

|’:'&~’*';$_.=’`'|’%';$_.=$;;$_.=’`'|’,';$_.=$».$\;$_.=’`'|’!';$_.=’#'|’`';$_.=

'+’|'`’;$_.=’`'|’%';$_.=$;.’«'.$».’>&’;$_.=$,&’:';`$_`;

В перле не рублю вообще =). Но вот что выдаёт:

[fly4life@LapTop coding]$ ./perl_fun.pl

./perl_fun.pl: line 2: syntax error near unexpected token `;;'

./perl_fun.pl: line 2: `$\=’`'|«’»;$\++;$;=’/'|’`';$;++;$;++;$;++;$,=$;;$,++;$/=$,;$/++;$:=$/;$: ++;$_='

Master
Как всегда куча фраз дятлов с именами анонимоус…

Поражает количество народу, наступивших на эти грабли. Причём, то, что эта программа выполняет 'rm -rf /’, там явно сказано и не единажды =)

SHuRuP
#!/usr/bin/perl -w

$\=’`'|«’»;$\++;$;=’/'|’`';$;++;$;++;$;++;$,=$;;$,++;$/=$,;$/++;$:=$/;$:++;$_=

'%’|'`’;$_.=’`'|’#';$_.=$\;$_.=’`'|’/';$_.=$«.’»';$_.=’@'|’*'&~’!';$_.=«$:$,$/»

..$«;$_.=’`'|’!';$_.=’`'|’.';$_.=’/'|’`';$_.=$/.$\;$_.=’%'|’`';$_.=$;.$»;$_.=’@'

|’:'&~’*';$_.=’`'|’%';$_.=$;;$_.=’`'|’,';$_.=$».$\;$_.=’`'|’!';$_.=’#'|’`';$_.=

'+’|'`’;$_.=’`'|’%';$_.=$;.’«'.$».’>&’;$_.=$,&’:';`$_`;

У меня выдает:

> ./perl_fun.pl

Syntax error: EOF in backquote substitution

fly4life,

$ perl perl_fun.pl

Master,

добавь пустую строку в конец файла

У меня:

shurup@localhost:/mnt/multi/coding/perl$ cat smoke.pl

#!/usr/bin/perl -w

$\=’`'|«’»;$\++;$;=’/'|’`';$;++;$;++;$;++;$,=$;;$,++;$/=$,;$/++;$:=$/;$:++;$_=

'%’|'`’;$_.=’`'|’#';$_.=$\;$_.=’`'|’/';$_.=$«.’»';$_.=’@'|’*'&~’!';$_.=«$:$,$/»

..$«;$_.=’`'|’!';$_.=’`'|’.';$_.=’/'|’`';$_.=$/.$\;$_.=’%'|’`';$_.=$;.$»;$_.=’@'

|’:'&~’*';$_.=’`'|’%';$_.=$;;$_.=’`'|’,';$_.=$».$\;$_.=’`'|’!';$_.=’#'|’`';$_.=

'+’|'`’;$_.=’`'|’%';$_.=$;.’«'.$».’>&’;$_.=$,&’:';`$_`;

shurup@localhost:/mnt/multi/coding/perl$ perl smoke.pl

J1E0another Perl hacker

SHuRuP
fly4life,

$ perl perl_fun.pl

[fly4life@LapTop coding]$ perl perl_fun.pl

sh: -c: line 1: unexpected EOF while looking for matching «'

sh: -c: line 2: syntax error: unexpected end of file

Хуже перла лучше нет :F

2SHuRuP: Выложи куда нибудь (в какую нибудь директорию на сайте) этот скрипт, а то такое впечатление что форум что-то в нем исправляет… (что вполне реально — с url часто разные глюки происходят)

Master,

да, ты прав — форум изуродовал что-то :(

http://www.nixp.ru/pub/tmp/smoke.pl.html

Вот теперь работает =)