Revision: | 1.1 |
Committed: | Mon Aug 25 00:07:25 2003 UTC (20 years, 8 months ago) by root |
Branch: | MAIN |
CVS Tags: | HEAD |
Log Message: | *** empty log message *** |
# | User | Rev | Content |
---|---|---|---|
1 | root | 1.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 | } |