Однострочные программы на Perl

Не могу, кармы нема. Я тут новенький

парсер — лох, схавал больше половины однострочника :/

ну и конечно, это должен прочесть каждый — www.linux.org.ru/view-message.jsp?msgid=392747&page=-1

:)

Смотря как писать.

Благодарю, исправил.

Всегда таскаю с собой утилитку для проверки наличия модулей и их версий:

#!/usr/bin/env perl

my $module = shift;

my $is_loaded = eval "require $module; $module->import; 1";
unless($is_loaded) {
    print "$module was not loaded: $@"
}
else {
    print $module->VERSION || 'Loaded, but no $VERSION defined'
}
print $/

Называю её mver. Удобней, чем набирать каждый раз perl -MModule -e1

Я сделал тестовый пример:

Файл abc.txt такого содержания.
#!/usr/bin/perl
#!/usr/bin/perl
Xывафfdasdfasfd
asdfasfda
sfasdfasfd
asfdasdfa
sdfasdfasfd


потом запустил
type abc.txt | perl -pe "print $_;last"

Мне вывело только "#!/usr/bin/perl". Так что Вы уверены, насчёт Вашего высказывания?

Т.е. когда надо заменить переносы строк на табуляции, например, то используем
cat config.xml | perl -pe 'do{s/\n/\t/;print}while <>'

Вы, видимо, не понимаете самой сути ключа -p. -p означает «print». Т. е. этот ключ избавляет вас от необходимости печатать строку после того, как вы её изменили, т. к. печать будет сделана автоматически. Кроме того, это дополнение к -n, т. е. помимо вывода строки этот ключ организует цикл по всем строкам входного файла, а ваш «скрипт» является лишь телом этого цикла. Т. е. при использовании -p в 99.9% случаев никаких while <> в явном виде писать не надо.

В итоге, чтобы решить вашу задачу (заменить \n на \t в файле config.xml ) с помощью Perl, нужно сказать

perl -wpe 'tr/\n/\t/' config.xml

И никаких while, никаких print: их Perl делает за вас.
Да, я чуть не забыл сказать, что писать
cat file |
тоже не нужно (и это плохая привычка). Perl (и любая правильная POSIX-утилита) замечательно умеет читать файл сам, помощник в виде cat ему не нужен. Поэтому просто укажите имя файла в виде последнего аргумента перлу, и «усё, шеф!» :)

find. -name '*.cgi' -type f -exec chmod a+x '{}' \;

:-), просто я с find пока не очень дружу. Благодарю.

В данном случае применение File::Find, далеко не самого очевидного модуля, скорее оттолкнёт людей от Perl, чем приблизит к нему. Ваш вариант лучше, чем у автора статьи, но всё равно значительно менее нагляден и эффективен, чем естественное

find . -name \*.cgi | xargs chmod +x

(если есть шанс «напороться» на файлы с пробелами в имени, нужно добавить -print0 для find и -0 для xargs). Если, скажем, на диске окажется 150 .cgi-файлов, то ваш вариант запустит 150 процессов chmod, а последний вариант — только 1.

Кроме того, раз уж вы используете Perl, то почему бы не использовать перловую функцию chmod() ?

можно было и еще проще :) через -exec

+1, Благодарю.

Поправил

Благодарю.
А зачем всё решать именно перлом?

Ничего, что rmdir перловый удаляет только пустые директории?

Из перлдок
«Deletes the directory specified by FILENAME if that directory is empty»

Работают.
Если Вы делаете под Линукс, то либо используйте одинарные кавычки для кода, либо двойные, но тогда придётся экранировать доллары:

perl -pe 's/(.*)/bla-bla-$1/'

или

perl -pe "s/(.*)/bla-bla-\$1/"