Mojo::UserAgent is quite nice for this, too:use Mojo::UserAgentprint Mojo::UserAgent ->new ->get( $ARGV[0] ) ->res ->dom->find( "a" ) ->map( attr => "href" ) ->join( "\n" ); 这篇关于如何使用Perl从HTML文件提取链接?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!