Регулярные выражения Perl — мощный инструмент для поиска и обработки текста, в то же время позволяющий реализовать в одной строке программного кода довольно сложные операции.
В качестве примера можно привести такую задачу: нужно заменить в какой-либо строке все знаки «+» на пробелы. В воплощении на C это выглядело бы так:
void PlusToSpace(char *str) { register int i; for (i=0;str[i];i++) if(str[i]==’+’) str[i]=’ ‘; }
На Perl же эта задача выполняется гораздо быстрее:
$str=~tr/+/ /;
Именно это и дает Perl’у преимущество перед программами, например, на C, в применении в web-области.
Формат выражения выглядит так:
/pattern/
где pattern и представляет собой маску, состоящую из любых элеменов из этого списка:
/pattern/ Соответствие
x? ноль или один символ ‘x’
x* ноль или больше символов ‘x’
x+ один или больше символов ‘x’
.* ноль или больше любых символов
.+ один или больше любых символов
{m} M символов
[] символы, заключенные в []
[^] символы, кроме заключенных в []
[0-9] любая цифра от ‘0’ до ‘9’
[a-z] любая буква от ‘a’ до ‘z’
[^0-9] любой символ, не находящийся между ‘0’ и ‘9’
[^a-z] любой символ, не находящийся между ‘a’ и ‘z’
/^…/ первый символ в строке
/…$/ последний символ в строке
\d одна цифра, то же, что и [0-9]
\d+ одна или больше цифр, то же, что и [0-9]+
\D одна не-цифра, то же, что и [0-9]
\D+ одна или больше не-цифр, то же, что и [0-9]+
\w один alphanumeric символ (латинская буква или цифра), то же, что и [a-zA-Z0-9]
\w+ один или больше alphanumeric-символов, то же, что и [a-zA-Z0-9]+
\W один не-alphanumeric символ, то же что и [^a-zA-Z0-9]
\W+ один или больше не-alphanumeric символ, то же что и [^a-zA-Z0-9]+
\s один space символ (пробел, табуляция, новая строка), то же что и [\n\t\r\f]
\s+ один или больше space символов, то же что и [\n\t\r\f]
\S один не-space символ, то же что и [^\n\t\r\f]
\S+ один или больше не-space символов, то же что и [^\n\t\r\f]+
a|b|c ‘a’ или ‘b’ или ‘c’
abc подстрока «abc»
(pattern) () запоминает группу символов, присваивая их переменным $1, $2 и т.д. См. примеры.
/pattern/i игнорировать регистр букв
Это, конечно, не понять с первого раза, поэтому вот примеры:
Пример Описание
$str=~/perl/; проверяет, есть ли в строке $str подстрока «perl»
$str=~/^perl/; проверяет, начинается ли строка с подстроки «perl»
$str=~/perl$/; проверяет, заканчивается ли строка на подстроку «perl»
$str=~/c|g|i/; проверяет, содержит ли строка символ ‘c’ или ‘g’ или ‘i’
$str=~/cg{2,4}i/; проверяет, содержит ли строка символ ‘c’, следующие сразу за ним 2-4 символа ‘g’, за которыми следует символ ‘i’
$str=~/cg*i/; проверяет, содержит ли строка символ ‘c’, слудующие за ним 0 или больше символа ‘g’, за которыми следует символ ‘i’
$str=~/c..i/; проверяет, содержит ли строка символ ‘c’, и символ ‘i’, разделенные двумя любыми буквами
$str=~/[cgi]/; проверяет, содержит ли строка один из символов ‘c’, ‘g’ или ‘i’
$str=~/\d/; проверяет, содержит ли строка цифру
$str=~/\W/; проверяет, содержит ли строка символы, не являющиеся буквами латинского алфавита и цифрами
Использование regular expressions
=~ (проверка соответствия строки маске)
Этот оператор выполняет функцию, схожую c функцией оператора ==, сравнивая переменную, содержащую строку с маской.
Пример 1:
$string=»I love cgi»; if($string=~/cgi/) { print «верно»; }
Пример 2:
$string=»chmod 755 test.cgi»; if($string=~/[a-z]+\s\d+\s.*/) { print «верно»; } # ‘chmod’ — [a-z]+ — 1 или больше букв # ‘ ‘ — \s — 1 пробел # ‘755’ — \d+ — 1 или больше цифр # ‘ ‘ — \s — 1 пробел # ‘test.cgi’ — .* — дальше идут любые символы
Пример 3: проверка, e-mail адреса
$string=»billgates@microsoft.com»; if($string=~/\w+\@\w+\.\w+/) { print «верно»; } # ‘billgates’ — \w+ — 1 или больше букв/цифр # ‘@’ — \@ — символ @ # ‘microsoft’ — \w+ — 1 или больше букв/цифр # ‘.’ — \. — символ . # ‘com’ — \w+ — 1 или больше букв/цифр
!~ (проверка несоответствия строки маске)
Этот оператор является обратным оператору =~ (так же как != явл обратным по отношению к ==).
tr (перевод)
Аргументами этой функции эвляются две маски с одинаковым количеством элементов.
$string=tr/SEARCHLIST/REPLACELIST/;
А занимается она тем, что заменяет элемент из SEARCHLIST соответствующим элементом из REPLACELIST.
Пример 1:
$string=»testing»; $string=~tr/et/ET; # Сейчас $string=»TEsTing»; $string=~tr/a-z/A-Z/; # А сейчас $string=»TESTING»;
Пример 2:
$string=»I+like+CGI»; $string~tr/+/ /; # Сейчас $string=»I Like CGI»
s (замена)
Эта функция заменяет часть строки, соответствующую PATTERN на REPLACE.
$string=s/PATTERN/REPLACE/eg;
Где ‘e’ и ‘g’ — необязательные параметры:
* g — заменяет все встречающиеся части строка, соответствующие PATTERN. Если этот параметр опущен — заменяет только первое соответствие.
* e — означает что REPALCE является выражением, а не просто строкой (в REPLACE содержатся переменные)
Пример 1:
$string=»i:love:perl»; $string=~s/:/*/; # now $string=»i*love:perl» $string=~s/:/*/; # now $string=»i*love*perl» $string=~s/*/+/g; # now $string=»i+love+perl» $string=~s/+/ /g; # now $string=»i love perl» $string=~s/perl/cgi/; # now $string=»i love cgi»
Пример 2:
$string=»i love perl»; $string=~s/(love)/<$1>/; # теперь $string=»i perl» # Сдесь первое найденное слово «love» # присваевается переменной $1
Пример 3:
$string=»www22cgi44″; $string=~s/(\d+)/$1*3/eg; #сейчас $string=»www66cgi132″; # Параметр ‘e’ показывает # что $1*2 — вычисление, а не просто строка
/pattern/
Работу этой функции поясняют примеры:
Пример 1
$string=»chmod 711 cgi»; $string=~/(\w+)\s+(\d+)/;
* (\w+) соответствует любому количуству букв. Соотвествие, найденное в строке будет присвоено переменной $1.
* \s+ соответствует любому количуству пробелов.
* (\d+) соответствует любому количуству цифр. Соотвествие, найденное в строке будет присвоено переменной $2.
Теперь $1=»chmod», $2=»711″
Пример 2:
$string=»chmod 711 cgi»; @list=split(/\s+/,$string); # разбить строку $string, # используя пробелы # в качестве разделителей
Получим массив:
@list=(«chmod»,»711″,»cgi»);
Добавить комментарий