[Perl][RegExp]Не происходит выделение переменной $1

1

0

Вот эта программа выделяет гиперссылки из документа и печатает значение атрибута href:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
#!/usr/bin/perl -w
use strict;
use LWP::Simple qw(get);

my $page=get('http://wilci.narod.ru');
my @links=($page=~/<\s*?a\s*?href=(?:"|'|).*?(?:"|'|)\s*?.*?>/gi);
foreach my $linkget(@links){
$linkget=~/<\s*?a\s*?href=(?:"|'|)(.*?)(?:"|'|)\s*?.*?>/i;
print $1}
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Гиперссылки находятся все. Почему печатается значение атрибута только первой гиперссылки? Находить значение атрибута нужно только с помощью этого регулярного выражения. Как сделать чтобы выводились на печать значения атрибута всех гиперссылок? Заранее благодарен.

Ссылка

←	Веб-девелопмент

Документация по Ruby on Rails

→

#!/usr/bin/perl -w 
use strict; 
use LWP::Simple qw(get); 


my $page=get('http://wilci.narod.ru'); 
my @lines=split(/\n/,$page);

foreach (@lines)
{
    if(m/href=('|")?(.*?)('|")?(\s|>)/i)
    {
        print $2, "\n";
    }
}

iSage ★★★★
(16.08.09 01:29:25 MSD)

Ответ на: комментарий от iSage 16.08.09 01:29:25 MSD

Большое спасибо iSage. Но ваш пример не выделяет гиперссылки расположенные в одной строке.

Хотелось бы узнать причины по которым не работает мой исходник.

Wilci
(16.08.09 02:08:40 MSD) автор топика

Ссылка

#!/usr/bin/perl -w
use strict;
use LWP::Simple qw(get);

my $page=get('http://wilci.narod.ru');
my @links=($page=~/<\s*?a\s*?href=(?:"|'|).*?(?:"|'|)\s*?.*?>/gi);
foreach my $linkget(@links){
    $linkget=~/<\s*?a\s*?href=(?:"|'|)([^"' ]*)(?:"|'|)\s*?.*?>/i;
    print "$1\n";}

josephson ★★
(16.08.09 02:27:21 MSD)

Ответ на: комментарий от josephson 16.08.09 02:27:21 MSD

ОГРОМНЕЙШЕЕ СПАСИБО josephson!!!

Наконец-то моя проблема решена...

Wilci
(16.08.09 02:37:03 MSD) автор топика

Ссылка

Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.

←	Веб-девелопмент

Web-development

Документация по Ruby on Rails

→

Похожие темы