Круто! =) Прежде чем запускать разобрался как это работает. Это такой хорошй способ сказать s///ee А потом:
#!/usr/bin/perl my $str = '115.97.121.32.39.74.117.115.116.32.97.110.111.116.104.101.114.32.80.101.114.108.32.72.97.99.107.101.114.39'; my @chars = split /\./, $str; print chr($_) foreach @chars; __END__ outputs: say 'Just another Perl Hacker' Кажется, что в комиксе который я ищу там было что-то основанное на этой идее, но еще с одним преобразованем — чтобы сжать цепочку цифр в более короткую буквенно-цифровую последовательность. 2014-08-13 0:59 GMT+04:00 Alexander Onokhov <[email protected]>: > цифры буквы пара кавычек и точки > > perl -E 's ss > 115.97.121.32.39.74.117.115.116.32.97.110.111.116.104.101.114.32.80.101.114.108.32.72.97.99.107.101.114.39 > see' > > > > 2014-08-12 21:45 GMT+03:00 Иван Бессарабов <[email protected]>: >> >> Точно помню что был rage comic на котором человечек долго смотрит на >> совершенно непонятный perl однострочник, который выводт Just another Perl >> hacker. >> >> Было что-то вроде этого: >> https://upload.bessarabov.ru/bessarabov/fG8i3Bx12XiNBghOzVIZuKf0AL4.png >> >> Может быть у кого-нибудь есть под рукой этот комикс? Или может быть вы >> помните >> этот однострочкик (в интернете куча кода, который выводит Just another >> Perl >> hacker, но мне не удалось найти именно этот безумно элегантный вариант — >> помню >> что там в нем были только цифры-буквы и пара кавычек) >> -- >> Moscow.pm mailing list >> [email protected] | http://moscow.pm.org > > > > > -- > Alexander > > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org > -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
