Здравствуйте, обитатели форума.
Подскажите, пожалуйста, как лучше решить следущую задачу.
Есть html-страница.
Есть какой-нибудь тег, например, <a href.... javascript...>. Надо получить два массива.
В одном будут содержаться все присутствующие на странице теги <a href....>, а в другом все что находится между ними, чтобы после замены элементов в первом массиве, можно было собрать заново страницу. Либо получить один массив, нечетные элементы которого - это теги
<a href....>, ну а четные - то что между <a href....>. Вопрос - как это лучше организовать?

Этот код не работает если встречается в одной строке несколько совпадений, в таком случае сохраняется опоследнее совпадение

Код

my @href; my @text; open FH, 'text.html'; while (<FH>) {  chomp;  if (/.*(<a.*>)(.*)</a>.*/) {    push @href, $1;    push @text, $2;  } }

Страный код.

s_a_s_h_a Нужны регекспы
<?
preg_match_all ('|<a(.*?)>(.*?)</a>|',$text,$out);
print_r ($out);
?>


Это сообщение отредактировал(а) Secandr - 3.11.2004, 14:03

Secandr
Давайте всё-таки в форуме по Перлу и отвечать будем на Перле!!!!

Прошу прощения стормозил, не посмотрел название раздела
Впринципе регексп получается примерно такой же /<a(.*)>(.*)</a>/i
только я не помню как отключить жадность, каокй модификатор это делает?

Код

for  (`uptime` =~ /<a(.*)>(.*)</a>/ig){ echo $1.'='.$2."\n"; }

Secandr
Не согласен!!! На твой регэксп будет ошибка!! Нужно "подсечь" слэш в закрывающемся тэге!!! Да и учитывая "жадность" регэкспов я бы переписал твой код вот так:

Код

for (`uptime` =~ /<a([^>]*)>([^<>]*)<\/a>/ig){        print $1.'='.$2."\n"; }

модификатором можно ограничить жадность, а твой вариант не универсален:

HTML

<a href="#" onClick="js_function('<b>')">1</a>

Цитата(Secandr @ 3.11.2004, 17:09)

а твой вариант не универсален:

Согласен! А ты можешь предложить универсальный вариант?

Причём здесь echo?

GoodBoy Я же говорю, есть модификатор, который ограничивает жадность, только я его не помню.

Цитата

GoodBoy Я же говорю, есть модификатор, который ограничивает жадность, только я его не помню.

Вот он: ?
Например так выражение перевернёт всю строку и зацепит только первую букву "o", это не жадный шаблон:

Код

#!/usr/bin/perl my $str = "allooo"; $str =~ s/(allo+?)(?:\w*)?/join("", reverse split("", $1))/ie; print $str;

Для того, что бы он стал жадным, нужно удалить знак ? после знака +, то-есть слева первый вопросительный знак.

Код

for (`uptime` =~ /<a(.*?)>(.*?)</a>/ig){ echo $1.'='.$2."\n"; }

Всем спасибо за ответ.
Смотрю тема развивается.
У меня возник вопрос - что есть `uptime`?

Код

for ($text =~ /<a(.*?)>(.*?)</a>/ig){ echo $1.'='.$2."\n"; }

Secandr
echo - это не из Перла!!!

Код

for ($text =~ /<a(.*?)>(.*?)</a>/ig){ print $1.'='.$2."\n"; }

Загребаю.....

Снова здравствуйте.

Конечно, ничего из того что здесь написано толком не работает. Попытался сам чего-нибудь придумать, но что-то ничего не выходит. Решил вернуться к этой теме. Перечитал свой вопрос и заметил, что он немного не о том. Новый пример:

text1 <tag1 list_param1> text2 <tag1 list_param2> text3

надо получить
@mas1=(text1,text2,text3);
@mas2=(list_param1,list_param2);

Есть предложения, как это можно сделать?