|
|
|||||
Регистрация: Mar 2004
Сообщений: 9
|
поиск в документе.... help
Здравствуйте!
Всем спасибо за предыдущие ответы. Они мне очень помогли. Есть еще одна маленькая проблема, которую я никак не могу решить. Я даю запрос перл скрипту, например такой: $url='http://kuda-to.ru/cgi-bin/script.pl'; use HTTP::Request::Common qw(POST); use LWP::UserAgent; $ua = LWP::UserAgent->new; my $req = POST $url, [ param1 => "$param1", param2 => "$param2", ]; my $res = $ua->request($req); @out=$res->content; дальше анализирую ответ: $i=0; while(@out[$i]){ if (@out[$i]=~m/<b>(.*)/g){ $to_4to_nuzhno1=$1; } ++$i; } когда в @out встречается <b>, я получаю то что стоит после и записываю в переменную $to_4to_nuzhno1. Проблема вот в чем: В тексте встречается много <b> и мне надо получить все, что стоит после всех <b>. А так я получаю только то, что стоит после первой <b>. Как это сделать? как мне получить то что нужно из текста типа: <b> To_4to_nuzhno1 </b><b>To_4to_nuzhno2 </b><b>To_4to_nuzhno3 </b><b>To_4to_nuzhno4 ........... еще вывод-массив @out состоит только из @out[0], а @out[1] и @out[2].... нету. Хорошо бы, чтоб строки html кода записывались в @out[0], @out[1], @out[2]....... help в общем |
Часовой пояс GMT +4, время: 09:48. |
|
« Предыдущая тема | Следующая тема » |
|
|