| 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 | } |