projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
87bf0dc
)
complete unconpression
author
minima
<minima>
Mon, 14 Oct 2002 00:01:35 +0000
(
00:01
+0000)
committer
minima
<minima>
Mon, 14 Oct 2002 00:01:35 +0000
(
00:01
+0000)
perl/USDB.pm
patch
|
blob
|
history
diff --git
a/perl/USDB.pm
b/perl/USDB.pm
index c12247a34503b2ce47e3d93dc0251e669726dda9..d5ac1d8a59cd2a5ea5fe90e77d60eea13965bd3f 100644
(file)
--- a/
perl/USDB.pm
+++ b/
perl/USDB.pm
@@
-102,20
+102,11
@@
sub load
# now write away all the files
for (@_) {
# now write away all the files
for (@_) {
- my $fn = shift;
- my $if = gzopen($fn, "r") or return "Cannot open $fn $!";
- my $ofn = "$fn.upk";
- my $of = new IO::File "+>$ofn" or return "Cannot read $ofn $!";
- my ($l, $buf);
- while ($l = $if->gzread($buf)) {
- $of->write($buf, $l);
- }
- $if->gzclose;
- $of->close;
- $of = new IO::File "$ofn" or return "Cannot read $ofn $!";
+ my $ofn = shift;
+ my $of = new IO::File "$ofn" or return "Cannot read $ofn $!";
while (<$of>) {
while (<$of>) {
- $l = $_;
+
my
$l = $_;
$l =~ s/[\r\n]+$//;
my ($call, $city, $state) = split /\|/, $l;
$l =~ s/[\r\n]+$//;
my ($call, $city, $state) = split /\|/, $l;