RE: Perl -w odd error

[Yacketta, Ronald]

That goes against everything perl ;) why not _slurp_ the entire file in
(which is 100% perl legal) (@FILE=<FILEHANDLE>;)

-Ron

-----Original Message-----
From: Miller, Joseph S [mailto:[EMAIL PROTECTED] 
Sent: Thursday, June 12, 2003 17:25
To: Yacketta, Ronald; [EMAIL PROTECTED]
Subject: RE: Perl -w odd error


You need to do a loop of some sort and extract the data from the file try:

open (CNTFILE, "${OUTPUTFILE}") or die "Can't open ${OUTPUTFILE} : $!";
        
for ($i= 0; <CNTFILE>; $i++){

   $file_date = $_;
   $FILE[$i]= $file_data;
}

close(CNTFILE);

-----Original Message-----
From: Yacketta, Ronald [mailto:[EMAIL PROTECTED]
Sent: Thursday, June 12, 2003 12:05 PM
To: [EMAIL PROTECTED]
Subject: Perl -w odd error


Folks,

I have the following block of code:

        open (CNTFILE, "${OUTPUTFILE}") or die "Can't open ${OUTPUTFILE} :
$!";
        @FILE=<CNTFILE>;
        close(CNTFILE);

Which reports this warning:

Name "main::CNTFILE" used only once: possible typo at ./OrderTakingTree.pl
line 151.

I am just opening the file, slurping it in and closing it. Whats the prob?

-Ron

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]