百度下拉框联想词获取（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 "$htmln";
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");