Евгений Костин прислал скрипт на Perl'e, который после запуска выводит на экран "Evgeniy Stepanischev is a mad hacker! :)". Каков льстец, а? :)
$_=",..,,.,,,,,,,,,,,.,,,,,,,.,,,.,,,,,,,..,,,,,.,,.,..,,,,,,,,.,,,,,.,,.,,,,..,,,,,.,..,,,,,,,,,,..,..,,.,,,,,,,,,,,,,..,,,,,,";
s/\s//gs;tr/,./05/;@a=split(//);$_=<DATA>;tr/~`'"^/0-4/;map{$o .=$a[$i]+$_;$i++}split(//);
@a=$o=~m!...!g;map{print chr}@a; __DATA__ ~`^``"`~"`~```~`~~`'`~"'~""````~```'~^'``~`~~``~~^^`~^`~```"~"'`~~``~~ => "'~^'~"'`~^~^'`~~~"'`~^~^'~^^`~'`~```^~""~"'~~"~^`~`~ |
Красной стрелкой выделено место, где перевода строки быть не должно. Т.е. последние две строки нужно записать в одну строчку.
|
|