Пишу в фейсбуке однострочник (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 гольф — (".") Мне вот этот нравится
Интересная реация для непосвященных;)) -- С уважением Николай Мишин -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
