杭州小客车查询脚本

xkc.pl

#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use Data::Dumper;

my $ua = LWP::UserAgent->new;
my $url = 'http://apply.hzcb.gov.cn/apply/app/status/norm/person';
my $issueNumber = '201709';

# get page count
my $response = $ua->post($url, 'Content' => {'pageNo'=>1, 'issueNumber' => $issueNumber, 'applyCode'=>''});
my $page_count = 0;
if ($response->is_success) {
    if ($response->content =~ /pageCount\s+=\s+window\.parseInt\('(\d+)',10\)/) {
        $page_count = $1;
    }
}
				
# <tr class="content_data">
# 	<td >0035100864826</td>
# 	<td >华桂芳</td>
# </tr>
for (my $i = 1; $i <= $page_count; $i++ ) {
    my $ua = LWP::UserAgent->new;
    my $response = $ua->post($url, 'Content' => {'pageNo'=>$i, 'issueNumber' => $issueNumber, 'applyCode'=>''});
    if ($response->is_success) {
        if (my @all = $response->content =~ m{class="content_data">\s+<td\s+>\d+</td>\s+<td\s+>(.*?)</td>}g) {
            foreach (@all) {
                print;
                print "\n";
            }
        }
    }
    sleep 0.5;
}