Revision: | 1.1 |
Committed: | Mon Aug 25 00:07:25 2003 UTC (20 years, 10 months ago) by root |
Branch: | MAIN |
CVS Tags: | HEAD |
Log Message: | *** empty log message *** |
# | Content |
---|---|
1 | #!/usr/bin/perl |
2 | |
3 | # 30431731 data.csv |
4 | # 33973479 plz " " ähnlich |
5 | # 33988862 gesamt |
6 | |
7 | for my $pfx (100 .. 9999) { |
8 | $pfx = sprintf "%04d", $pfx; |
9 | my $plz = sprintf "data/%04d.txt.gz", $pfx; |
10 | -e $plz or warn $plz; |
11 | 20 < -s $plz or next; |
12 | open D, "gzip -cd $plz |" |
13 | or die; |
14 | my $x = <D>; |
15 | $x =~ /,"$pfx\d",/ or warn "$plz $x"; |
16 | } |