从字符串中的链接获取网站标题

Question

字符串:"这是徽章,https: //stackoverflow.com/badges bla bla bla"

如果string contatins一个链接(见上文)我想解析该链接的网站标题.

它应该返回:徽章 - 堆栈溢出.

我怎样才能做到这一点？

谢谢.

Answer 1

#!/usr/bin/perl -w

require LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;

my $response = $ua->get('http://search.cpan.org/');

if ($response->is_success) {
    print $response->title();
}
else {
    die $response->status_line;
}

请参阅LWP :: UserAgent.干杯:-)

Answer 2

我使用URI :: Find :: Simple的list_uris方法和URI :: Title.