推推

导航

2016年3月24日 #

Perl爬取江西失信执行

摘要: #! /usr/bin/perl use strict; use Encode qw(encode decode); binmode(STDIN,":encoding(utf8)"); binmode(STDOUT,":encoding(utf8)"); binmode(STDERR,":encoding(utf8)"); use LWP::Simple; use LWP::UserAgent;... 阅读全文

posted @ 2016-03-24 14:55 推推 阅读(431) 评论(0) 推荐(0) 编辑

Perl爬取铁路违章旅客信息

摘要: #! /usr/bin/perl use strict; use Encode qw(encode decode); binmode(STDIN,":encoding(utf8)"); binmode(STDOUT,":encoding(utf8)"); binmode(STDERR,":encoding(utf8)"); use LWP::Simple; use LWP::UserAgent;... 阅读全文

posted @ 2016-03-24 14:52 推推 阅读(178) 评论(0) 推荐(0) 编辑