root/zip2tz/zip2state.pl
Revision 2100 (checked in by miyagawa, 13 years ago) | |
---|---|
|
Line | |
---|---|
1 | #!/usr/bin/perl |
2 | use strict; |
3 | use warnings; |
4 | use LWP::Simple; |
5 | |
6 | my %zip2state; |
7 | for (0..99) { |
8 | my $url = sprintf "http://www.downloadzipcode.com/%02d.html", $_; |
9 | warn "GET $url"; |
10 | my $html = get $url; |
11 | while ($html =~ m!<a href="/(\w{2})/(\d{5})/">!g) { |
12 | $zip2state{$2} = $1; |
13 | } |
14 | } |
15 | |
16 | use YAML; |
17 | print YAML::Dump \%zip2state; |
18 |
Note: See TracBrowser for help on using the browser.