获取造价百强公司的真实位置

#!/usr/bin/perl
use Data::Dumper;
use LWP::UserAgent;
use URI;
use Web::Scraper;
use JSON::XS;
# 处理中文需要指定输入输出都用utf8格式，否则会有wide character in print的warning提示 
use utf8;
binmode(STDIN, ':encoding(utf8)');
binmode(STDOUT, ':encoding(utf8)');
binmode(STDERR, ':encoding(utf8)');

# 百度地图搜索的查询结果返回的是json数据，需要转换成perl的哈希格式 
sub decode_map_json {
    my $map_json = decode_json shift;
    # 如果是距离搜索，那么$map_json->{"content"}->[0]->{"lines"}->[0]->[2]是距离；$map_json->{"taxi"}->{"detail"}->[0]->{"totalPrice"}是打的费用。
    return $map_json->{"content"}->[0]->{"addr"};
};

# 用LWP发起地图查询请求 
sub get_map_json {
    my $company = $_;
    my $ua = LWP::UserAgent->new;
    my $res = $ua->get('http://map.baidu.com/?qt=s&wd='.$company);
    return $res->decoded_content if $res->is_success;
};

# 采用Web::Scraper获取网页里的XPath内容 
sub get_company {
    my $ori_uri = shift;
    # 可以在firefox里直接查看元素的XPath，在google chrome里则需要安装Xpath Helper工具。
    # 安装完成后，使用Ctrl+Shift+X快捷键呼出顶端Xpath调试框，然后按住Shift键，用鼠标左键点击网页元素，上边框里就出现元素的Xpath和content了。
    # 注意复制过来的Xpath里的@会被perl理解成是数组的标示，所以要加上逃逸符\才行。
    my $tweets = scraper {
        process "/html/body/div[\@class='index-main layout']/div[\@class='index-main layout']/div[\@class='index-content bcolor']/div[\@class='cont']/div[\@id='fontzoom']/span[\@id='BodyLabel']/div/table", "list" => scraper {
            # 第一个scraper里不能获取tbody，原因未知。所以分成两步，先获取一个到table的scraper，再获取tbody里面的TEXT。
            process "tbody tr td:nth-child(2)", 'cont[]' => 'TEXT';
        };
    };
    my $res = $tweets->scrape(URI->new($ori_uri));
    return $res->{'list'}->{'cont'};
};

my $company = get_company('http://www.ceca.org.cn/show.aspx?id=2006');
foreach(@$company){
    print $_,"\t";
    my $json = get_map_json($_);
    print decode_map_json($json),"\n";
};