Use
open FILE2, "<fromwhere";
if(fileno(FILE2) < 0) { do something;}
Petr Vileta, Czech republic
(My server reject all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)
----- Original Message -----
From: "Ken Barker" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Wednesday, September 07, 2005 10:50 PM
Subject: Trouble with defined()
When I use the defined function in testing for a valid open file handle -
it appears that it eats the first line of the file. Here is a test line:
while(defined(<FILE2>) and $line2 = <FILE2> and $found == 0){
I have put print statements after this line and can see that it misses the
first line from this file. Any suggestions?
TIA
Ken
Ken Barker
IT Lead
Americall Group, Inc
314-213-7927
[EMAIL PROTECTED]
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
