百度下拉框联想词获取（perl实现）

 

#!/usr/bin/perl
use strict;

use warnings;

use Encode;

use LWP::Simple;

my $tword="中国";
my $url='http://suggestion.baidu.com/su?wd='.$tword.'&cb=window.bdsug.sug&from=superpage&t=1335581987353';
$url= encode("utf-8",decode("gbk",$url));
$url=~ s/([^\w\-\.\@\/\?\.\&\:=])/$1 eq "\n" ? "\n":sprintf("%%%X",ord($1))/eg; 

my $html=get($url);
#print "$html\n";
if($html=~/q:\"(.*?)\"/)
{
print "query:".$1."\n";
}
$html=~s/\"//g;
if($html=~/\[(.*?)\]/)
{
my @words=split(",",$1);
print "联想词：\n";

foreach $a(@words)
{
print $a."\n";
}
}
system("pause");