Ruslan Zakirov <[email protected]> писал(а) в своём письме Fri, 15 Jun
2012 18:52:16 +0300:
2012/6/15 Alessandro Gorohovski <[email protected]>:
Уважаемое сообщество,
Доброго времени суток!
Подскажите, кто знает, пользуется
хорошую книгу (может ресурс) по 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 :)
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
