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
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 ?
Thanks,
Keith
This message contains confidential information and is intended only for the
individual named. If you are not the named addressee you should not
disseminate, distribute or copy this email. Please notify the sender
immediately by e-mail if you have received this e-mail by mistake and delete
this e-mail from your system. E-mail transmission cannot be guaranteed to be
secure or error-free as information could be intercepted, corrupted, lost,
destroyed, arrive late, or incomplete, or contain viruses. The sender
therefore does not accept liability for any errors or omissions in the contents
of this message, which arise as a result of e-mail transmission. If
verification is required, please request a hard-copy version.
Tanager, INC
3140 West Ward Road
Suite 205
Dunkirk, MD 20754
www.tanagerinc.com
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
