523066680

Perl
Mojo::DOM, CSS Selector

my $dom = Mojo::DOM->new( $html );
grep { s/..//; say $_; } ( $dom->find("td.title a")->map(attr=>"href")->each )
复制代码