0

Web から URL を抽出するために、次の perl スクリプトを作成しました。

#!perl

use strict;
use warnings;

use List::MoreUtils qw( uniq );
use WWW::Mechanize  qw( );

my ($url) = @ARGV;
my $mech = WWW::Mechanize->new();


sub getUrl {
    my $request= "@_";
    my $response = $mech->get($request);
    return $response->is_success()  or die($response->status_line() . "\n");
}

sub getLinks {
    getUrl($url);
    my @root= map { "$_\n" } sort { $a cmp $b } uniq 
        map { $_->url_abs() }
            $mech->links();
    return @root;
}
print Dumper(getLinks());

HTML サイトから一意の URL と関連するリンク テキストを抽出する方法はありますか?

4

2 に答える 2

1

HTML::LinkExtor - HTML ドキュメントからリンクを抽出するをご覧ください。

モジュールの例を参照してください。大いに役立ちます。

于 2013-07-02T07:29:28.500 に答える