My apologies. scratch.dat has 18 lines and each line is:
junk (line number) |country number. Country.dat is over 300 lines. For each loop, I want to read each line of scratch.dat and match the country number in country.dat which is $ln. When the right line of country.dat is found, I then want
to change $mn of country dat to equal $the_line of the scratch file. When all 18
changes are done, I need to write country.dat back with the...
User Profile
Collapse
-
How to make this print to file right --
Appreciate help with this, I want the file modified and correctly printed... appreciate your help.
...Code:open (SCR, "scratch.dat") || &CgiDie ("SCRATCH could not be opened while attempting read"); @scra =<SCR>; close (SCR); $reps = 1; while ($reps < 19) { foreach $mine (@scra) { chomp($mine);
No activity results to display
Show More
Leave a comment: