Здравствуйте!
Всем спасибо за предыдущие ответы. Они мне очень помогли.
Есть еще одна маленькая проблема, которую я никак не могу решить.
Я даю запрос перл скрипту, например такой:
$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 в общем
