[Moscow.pm] Perl однострочники

[Alessandro Gorohovski]

Ruslan Zakirov <ruz на bestpractical.com> писал(а) в своём письме Fri, 15 Jun  
2012 18:52:16 +0300:

> 2012/6/15 Alessandro Gorohovski <an.gorohovski на gmail.com>:
>> Уважаемое сообщество,
>> Доброго времени суток!
>>
>> Подскажите, кто знает, пользуется
>> хорошую книгу (может ресурс) по Perl однострочниками
>
> Для начала зватает нескольких шаблонов
>
> Операции с файлами на месте:
> find . -type f | xargs perl -i -pe 's/foo/bar/'
>
> Выковыривание из потока:
> cat file | perl -ne '/(foo)/ && print "$1\n"'

Я так понимаю, что можно и без cat:

perl -ne '/(foo)/ && print "$1\n"' file

Вообще, для меня было странным как работает опция
-ne
Я ожидал аналогично sed, т.е. обходиться без
print "$1\n"

> Агрегация потока:
> cat file | perl -ne '$s += $_; END { print "$s\n" }'
>
> Если народ накидает еще шаблонов можно сделать perl one-liners cheat  
> sheet :)