[EMAIL PROTECTED] writes:
> Hello,
>
> I need to find a test when I open a File, to detect the EOF.
>
> open (FILE, "< $file);
> while (<FILE>){
> if ($_ eq eof){ print "BINGO\n"}
> }
> close FILE;
Your while loop is effectively 'while not eof' so you don't need to
explicitly check in this case.
>
> This does not work, although the KOMODO marks eof as a reserved Word.
Thats because it is a reserved word. See 'perldoc -f eof' for details.
HTH
--
Brian Raven
The Golden Gate wasn't our fault either, but we still put a bridge across it.
-- Larry Wall in <[EMAIL PROTECTED]>
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/activeperl
