perl 公交车查询

最新推荐文章于 2025-06-08 01:12:49 发布

scan724

最新推荐文章于 2025-06-08 01:12:49 发布

阅读量622

点赞数

CC 4.0 BY-SA版权

分类专栏： perl LWP

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/50926199

perl LWP 专栏收录该内容

111 篇文章 ¥39.90 ¥99.00

订阅专栏

本文展示了如何使用Perl通过API查询公交车线路，涉及URI::Escape、Encode和JSON模块的使用，以及数据解码和处理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<pre name="code" class="cpp">decode_json 必须是unicode形式的字符，Dump不支持显示unicode形式的中文 只能 \x{xxxx}
use URI::Escape;
use Encode;
use JSON qw/encode_json decode_json/;
my $str="杭州";
my $str=uri_escape("$str"); 
print "\$str is $str\n";
use LWP::UserAgent;
my  $ua = LWP::UserAgent->new;
my  @header = (
    'accept'=> "application/json",
    'content-type'=> "application/json",
    'apikey'=> "3074a7f9926a4bbb484aa8bb366e5b87",
    'User-Agent' => "Mozilla/8.0"
    );
my $url = "http://apis.baidu.com/xiaota/bus_lines/buses_lines?city=$str&bus=$ARGV[0]&direction=$ARGV[1]";
$request = HTTP::Request->new(GET=>"$url");
$request->header(@header);
$response = $ua->request($request); 
$content= $response->decoded_content;
$content =

了解本专栏