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