用perl提取网页中的特定内容.

CODE:

#!/usr/bin/perl -w
use strict;

my $ip_addr = shift @ARGV;
my $url = 'http://whois.webhosting.info/' . $ip_addr;

use LWP::Simple;
my $content = get $url;
die "Couldn't get $url" unless defined $content;

#  $content 里是网页内容，下面是对此内容作些分析：

if($content =~ m/\d.*(\w+\.\w+\.)/i)
{
        print "The Domain is : $1\n";
}
else
{
        print "No Domain.\n";
}