您不想HTML
使用正则表达式进行解析。在这种情况下,使用正则表达式迟早会伪造您的数据。使用模块为您执行此操作会更好。
在这个例子中,我们使用HTML::TreeBuilder
and List::Util
。如果您想要每个类别中最高的,另一种方法是使用 TreeBuilder::XPath 查询特定部分中的所有内容。
use strict;
use warnings;
use HTML::TreeBuilder;
use List::Util qw( max );
my $data
= '<a href="/planes-desktop-wallpapers/page/8">8</a>\n'
. '<a href="/planes-desktop-wallpapers/page/9">9</a>\n'
. '<a href="/planes-desktop-wallpapers/page/10">10</a>'
;
my $tr = HTML::TreeBuilder->new_from_content($data);
my @vals =
map { [ $_->attr('href'), $_->content_list ] }
max ( $tr->look_down( _tag => 'a') );
use Data::Dumper;
print Dumper \@vals;
__OUTPUT__
$VAR1 = [
[
'/planes-desktop-wallpapers/page/10',
'10'
]
];
如果您只想要文本(数字),只需执行以下操作:
my @vals = map { $_->content_list } max ( $tr->look_down( _tag => 'a') );