@H_403_7@

#!/usr/bin/perl
use strict;@H_403_7@

use warnings;@H_403_7@

use Encode;@H_403_7@

use LWP::Simple;@H_403_7@

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;  @H_403_7@

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";@H_403_7@

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