perl refresh

This commit is contained in:
edoapra 2019-06-03 16:41:43 -07:00
parent b85d2e8a07
commit b12e4ef92a
No known key found for this signature in database
GPG key ID: 48E12DA1EDE9E1B0
2 changed files with 4 additions and 4 deletions

View file

@ -43,7 +43,7 @@ while (<DATA>)
@newtokens = split(' ');
$num_tokens = @newtokens ;
if($debug){print "tokens: @newtokens $#newtokens $num_tokens \n";}
push(tokens,@newtokens);
push(@tokens,@newtokens);
}
}
close (DATA);
@ -75,7 +75,7 @@ foreach $file (@ARGV){
}
}
}
if ($found) {push(found_files,$file);}
if ($found) {push(@found_files,$file);}
close(FIXEDFILE);
}
$num_found_files = @found_files;

View file

@ -43,7 +43,7 @@ while (<DATA>)
@newtokens = split(' ');
$num_tokens = @newtokens ;
if($debug){print "tokens: @newtokens $#newtokens $num_tokens \n";}
push(tokens,$newtokens[0]);
push(@tokens,$newtokens[0]);
}
}
close (DATA);
@ -75,7 +75,7 @@ foreach $file (@ARGV){
}
}
}
if ($found) {push(found_files,$file);}
if ($found) {push(@found_files,$file);}
close(FIXEDFILE);
}
$num_found_files = @found_files;