Perl. Регулярное выражение.
Здравствуйте! Помогите мне пожалуйста написать такой скрипт, который делает поиск по массиву(или просто строковой переменной) и считывает все, что находиться после [шаблона начала] и до [шаблона конца] с условием, что таких шаблонов начала и конца в массиве несколько. Например нужно считать символы находящиеся после <a> и до </a> и таких несколько штук. Надеюсь на вашу помощь :)
Попробуем для начала нарисовать такую конструкцию:
В результате мы увидим массив такого вида:
Array
(
[0] => Array
(
[0] => изобилует тэгами A и сейчас мы посмотрим, как их можно найти
)
[1] => Array
(
[0] => можно найти
)
)
Т.е., налицо - совсем не то, чего мы хотели: данный шаблон находит последнее подходящее значение в строке.
Некоторого разнообразия можно добиться, если разбить строку на отдельные строки так, чтобы тэги <a></a> находились по одному на строку:
А вообще, настоятельно рекомендую ознакомится с правильным мануалом: http://www.php.net/manual/ru/reference.pcre.pattern.syntax.php
Код:
$str = "Этот текст <a href=\"#\">изобилует</a> тэгами A и сейчас <a href=\"#\">мы посмотрим</a>, как их <a href=\"#\">можно найти</a>.";
$pat = "/<a.*>(.*)<\/a>/mi";
preg_match_all($pat, $str, $arr);
print_r($arr);
$pat = "/<a.*>(.*)<\/a>/mi";
preg_match_all($pat, $str, $arr);
print_r($arr);
В результате мы увидим массив такого вида:
Array
(
[0] => Array
(
[0] => изобилует тэгами A и сейчас мы посмотрим, как их можно найти
)
[1] => Array
(
[0] => можно найти
)
)
Т.е., налицо - совсем не то, чего мы хотели: данный шаблон находит последнее подходящее значение в строке.
Некоторого разнообразия можно добиться, если разбить строку на отдельные строки так, чтобы тэги <a></a> находились по одному на строку:
Код:
$str = "Этот текст <a href=\"#\">изобилует</a> тэгами A и сейчас <a href=\"#\">мы посмотрим</a>, как их <a href=\"#\">можно найти</a>.";
$pat = "/<a.*>(.*)<\/a>/mi";
$str = preg_replace("/<a/im", "\n<a", $str);
echo $str; //Здесь мы просто видим, как изменилась строка
preg_match_all($pat, $str, $arr);
print_r($arr);
$pat = "/<a.*>(.*)<\/a>/mi";
$str = preg_replace("/<a/im", "\n<a", $str);
echo $str; //Здесь мы просто видим, как изменилась строка
preg_match_all($pat, $str, $arr);
print_r($arr);
А вообще, настоятельно рекомендую ознакомится с правильным мануалом: http://www.php.net/manual/ru/reference.pcre.pattern.syntax.php
mfender, спаибо конечно, но мне более интересно, как это сделать на Perl а не на PHP.
Цитата:
Originally posted by doomer
mfender, спаибо конечно, но мне более интересно, как это сделать на Perl а не на PHP.
mfender, спаибо конечно, но мне более интересно, как это сделать на Perl а не на PHP.
Регулярные выражения (PCRE) в PHP - Perl-совместимые (Perl Compatible Regular Expressions). И работают также.
Мне перл пишет:
Undefined subroutine &main::preg_replace
Что надо делать, чтоб небыло ошибки?
Undefined subroutine &main::preg_replace
Что надо делать, чтоб небыло ошибки?
Цитата:
Originally posted by doomer
Мне перл пишет:
Undefined subroutine &main::preg_replace
Что надо делать, чтоб небыло ошибки?
Мне перл пишет:
Undefined subroutine &main::preg_replace
Что надо делать, чтоб небыло ошибки?
доки по перлу, в командной строке набираешь
>perldoc perldoc
по регулярным выражениям
>perldoc perlre
Можно глянуть что предлагает CPAN
например HTML::LinkLinkExtractor