The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка  RSS
"Раздел полезных советов: 10 полезных опций для написания одн..."
Вариант для распечатки  
Пред. тема | След. тема 
Форум Разговоры, обсуждение новостей
Изначальное сообщение [ Отслеживать ]

"Раздел полезных советов: 10 полезных опций для написания одн..."  +/
Сообщение от auto_tips (??) on 24-Июн-10, 18:31 
В простейших случаях perl можно использовать в командной строке как замену grep и sed, например:

    perl -ne 'print if /foo/'
    perl -pe 's/foo/bar/'

Но существует ряд интересных особенностей, которые часто упускаются из виду:

++ Опция "-l"

При добавлении опции "-l" perl автоматически очищает символ перевода строки перед обработкой в скрипте и добавляет его при каждом выводе данных.

Например, для очистки завершающих каждую строку файла пробелов можно использовать:

    perl -lpe 's/\s*$//'

(если указать perl -pe 's/\s*$//', то будут удалены и символы перевода строки)


++ Опция "-0"

По умолчанию perl разбивает входящий поток на строки, обрабатывая каждую строку отдельно. Опция "-0" позволяет выполнить операцию над файлом целиком, без разбиения на строки по символу перевода строки, а с разбиением на блоки по нулевому символу (так как в текстовых файлах \0 не встречается можно использовать -0 для обработки всего файла разом).

Например, для удаления всех файлов начинающихся на тильду в текущей директории можно использовать:

   find . -name '*~' -print0 | perl -0ne unlink

++ Опция "-i"

При указании "-i" perl считывает поток данных из указанного в командной строке файла, а затем записывает в него же результат работы, заменяя его. В качестве аргумента можно указать расширение для создания резервной копии файла.

Например для удаления всех комментариев в скрипте script.sh можно использовать:

      perl -i.bak -ne 'print unless /^#/' script.sh

На случай ошибки, старая версия файла будет сохранена в script.sh.bak.


++ Оператор ".."

Для оперировании с диапазоном строк необходимо учитывать состояние прошлых вычислений, для чего можно использовать оператор "..".
Например, для раздельной выборки всех GPG-ключей из одного файла, выводя только данные, идущие между указанным заголовком и футером, можно использовать:

   perl -ne 'print if /-----BEGIN PGP PUBLIC KEY BLOCK-----/../-----END PGP PUBLIC KEY BLOCK-----/' FILE

++ Опция "-a"

При указании опции "-a" perl автоматически разбивает каждую строку на части, по умолчанию используя пробел в качестве разделителя, и помещает ее элементы в массив @F.
Например, для вывода 8 и 2 столбца можно использовать:

   ls -l | perl -lane 'print "$F[7] $F[1]"'

++ Опция "-F"

Опция "-F" позволяет указать символ разделителя для разбиения строки при использовании опции "-a".
Например, для разбиения не по пробелу, а по двоеточию, нужно указать:

   perl -F: -lane 'print $F[0]' /etc/passwd


++ Оператор "\K"

При указании "\K" внутри регулярного выражения, можно отбросить все ранее найденные совпадения, что позволяет упростить операции по замене данных без задействования переменных.

Например, для замены поля "From:" в тексте email можно использовать:

   perl -lape 's/(^From:).*/$1 Nelson Elhage <nelhage\@ksplice.com>/'

Который можно свести к

   perl -lape 's/^From:\K.*/ Nelson Elhage <nelhage\@ksplice.com>/'

уточнив, что мы не хотим заменять начало строки.

++ Хэш %ENV

К любой переменной системного окружения можно получить доступ через хэш %ENV, что можно использовать для выполнения операций с одинарными кавычками, использованию которых мешают проблемы с экранированием данного символа в shell.

Для задачи вывода имен пользователей, содержащих апостроф можно использовать:

   perl -F: -lane 'print $F[0] if $F[4] =~ /'"'"'/' /etc/passwd

но считать кавычки задача неприятная, поэтому данную строку можно свести к:

   env re="'" perl -F: -lane 'print $F[0] if $F[4] =~ /$ENV{re}/' /etc/passwd


++ Конструкции "BEGIN" и "END"

Блоки BEGIN { ... } и END { ... } позволяют организовать выполнение кода до и после цикличной обработки строк файла.
Например, для подсчета суммы второго столбца в CSV файле можно использовать:

   perl -F, -lane '$t += $F[1]; END { print $t }'

++ Опция "-MRegexp::Common"

Через указание опции "-M" можно загрузить любой дополнительный perl-модуль. В однострочных скриптах удобно использовать модуль Regexp::Common, содержащий коллекцию типовых регулярных выражений для обработки различных видов данных.
Например, для разбора вывода команды ifconfig можно использовать готовые маски для определения IP-адресов:

   ip address list eth0 | \
      perl -MRegexp::Common -lne 'print $1 if /($RE{net}{IPv4})/'


URL: http://blog.ksplice.com/2010/05/top-10-perl-one-liner-tricks/
Обсуждается: https://www.opennet.ru/tips/info/2393.shtml

Высказать мнение | Ответить | Правка | Cообщить модератору

Оглавление

Сообщения по теме [Сортировка по времени | RSS]


1. "10 полезных опций для написания однострочников на языке Perl"  +/
Сообщение от Crazy Alex (??) on 24-Июн-10, 18:31 
Спастбо, хорошие подсказочки :-)
Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

2. "10 полезных опций для написания однострочников на языке Perl"  +/
Сообщение от Туве Янсон email on 25-Июн-10, 05:12 
-0 не знал, спасибо, я-то всё извращался :)))
Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

3. "10 полезных опций для написания однострочников на языке Perl"  +/
Сообщение от noname (??) on 26-Июн-10, 12:33 
>начинающихся на тильду
>'*~'

начинающихся?

Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

4. "10 полезных опций для написания однострочников на языке Perl"  +/
Сообщение от lancelot on 28-Июн-10, 14:22 
Спасибо хорошая подборочка
Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

6. "10 полезных опций для написания однострочников на языке Perl"  +/
Сообщение от Денис Юсупов email on 01-Июл-10, 11:51 
Спасибо, полезные hint'ы
Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру