27.03.2009, 18:38
|
|
Познающий
Регистрация: 14.01.2009
Сообщений: 93
С нами:
9116636
Репутация:
39
|
|
Сообщение от ph1l1ster
Код:
if ($get->content =~ /<a href=\"(.*)\">/)
{
print "$1\n";
}
выводит только первую найденную. как вывести все найденные?
Код:
my $a = q[f549ty3945g9h48hg34hg430ghgh4gh3470gh473g5834];
my @b = $a =~ /(\d+)/g;
print join "\n", @b;
__END__
549
3945
9
48
34
430
4
3470
473
5834
|
|
|