[Moscow.pm] Китайская грамота и перлгольф

[Nikolay Mishin]

Пишу в фейсбуке однострочник (https://www.facebook.com/nmishin)
perl -E 'use IO::All;$p{$_->name}=$_->getlines for grep{/perlre/}io->dir(".")->all;for$k(sort{$p{$a}<=>$p{$b}}keys%p){say qq{$k $p{$k}}}'
сестра, спрашивает:
— Китайская грамота? 
— это называется perl гольф 
— (".") Мне вот этот нравится 

Интересная реация для непосвященных;))
 


-- 
С уважением
Николай Мишин