Select Code to Download

Select or download this

#!/usr/bin/perl

...
print "\nFinished\n";
close (INFILE);
close (OUTFILE);

Select or download this

[s1269452@burn MIDAS_DATA]$ perl bulk_reorder_2105.txt midas_wxhrly_19
+9901-199912.txt "1999-12-15 11:00" 19260
Global symbol "%stations" requires explicit package name at bulk_reord
+er_2105.txt line 10.
Global symbol "$stations" requires explicit package name at bulk_reord
+er_2105.txt line 14.
Global symbol "%stations" requires explicit package name at bulk_reord
+er_2105.txt line 27.
Execution of bulk_reorder_2105.txt aborted due to compilation errors.