[Moscow.pm] perl japh rage comic

[Denis Ibaev]

А такое поведение где-то описано?

> perl -E 'say 115.97'
115.97
> perl -E 'say 115.97.121'
say


13 августа 2014 г., 1:27 пользователь Иван Бессарабов
<ivan на bessarabov.ru> написал:
>
> Прежде чем запускать разобрался как это работает. Это такой хорошй
> способ сказать 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 <ccnweb на gmail.com>:
>> цифры буквы пара кавычек и точки
>>
>> 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 Иван Бессарабов <ivan на bessarabov.ru>:
>>>
>>> Точно помню что был rage comic на котором человечек долго смотрит на
>>> совершенно непонятный perl однострочник, который выводт Just another Perl
>>> hacker.
>>>
>>> Было что-то вроде этого:
>>> https://upload.bessarabov.ru/bessarabov/fG8i3Bx12XiNBghOzVIZuKf0AL4.png
>>>
>>> Может быть у кого-нибудь есть под рукой этот комикс? Или может быть вы
>>> помните
>>> этот однострочкик (в интернете куча кода, который выводит Just another
>>> Perl
>>> hacker, но мне не удалось найти именно этот безумно элегантный вариант —
>>> помню
>>> что там в нем были только цифры-буквы и пара кавычек)

-- 
Денис Ибаев