Patrick K Christopher TANAGER wrote:
I can't seem to find this oddness in this script.
#! /usr/bin/perl
open(FH,"<$ARGV[0]") || die ("File failed to open!\n");
open(FO,">$ARGV[1]") || die ("Output failed to open!\n");
while (<FH>){
s/,//g
s/,//g;
# Watch your semi-colons :)
print (FO);
}
close (FH);
close (FO);
open(FH1,"$ARGV[2]").....
The problem is the first while iterates properly but then the script just exits.
Any ideas ?
--
Just my 0.00000002 million dollars worth,
Shawn
Programming is as much about organization and communication
as it is about coding.
Regardless of how small the crowd is, there is always one in
it who has to find out the hard way that the laws of physics
applies to them too.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/