mirror of
https://github.com/nwchemgit/nwchem.git
synced 2026-07-29 06:35:39 -04:00
perl refresh
This commit is contained in:
parent
b85d2e8a07
commit
b12e4ef92a
2 changed files with 4 additions and 4 deletions
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue