> -----Original Message-----
> From: Patrick K Christopher TANAGER
> [mailto:pchristop...@tanagerinc.com]
> Sent: Thursday, July 16, 2009 11:39
> To: beginners@perl.org
> Subject: While issues
>
> I can't seem to find this oddness in this script.
> #! /usr/bin/perl
You should use strict and warnings as part of the processing
and you might have a better idea.
Also you should really have the code that is failing and not
just making the assumption that the code is the same as the first.
If you have any questions and/or problems, please let me know.
Thanks.
Wags ;)
David R. Wagner
Senior Programmer Analyst
FedEx Freight Systems
1.719.484.2097 Tel
1.719.484.2419 Fax
1.408.623.5963 Cell
http://fedex.com/us
>
> 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/
>
>
>
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
