On Fri, Jun 29, 2001 at 02:28:50PM +0200, Ela Jarecka wrote:
> Hi,
> Executing my program with -w option I get the following warning:
> 'Value of <HANDLE> construct can be "0"; test with defined() at readData
> line 65535.'
>
> Surely I do not have 65535 lines in my program, but I suspect this one:
>
> #reading data
> open (FILEH, $filename) or die "Can't open file!\n";
>
> while ($line = <FILEH>) {
> ....
I have no idea where the others are going with their lexical vs. non-lexical
filehandle, so you should probably disregard that avenue.
Your problem is probably in that area. Specifically, it's likely while
loop. Your intent is to read until EOF, but it will fail if <FILEH> returns
just 0, which it can if the last line in the file contains only a 0 and no
trailing newline.
You need to test for defined'ness, not truth:
while (defined($line = <FILEH>)) {
...
}
The error message you describe is in perldoc perldiag. More recent versions
will actually turn your loop form into the loop form above (checking for
defined'ness). What this means is that if you're using a more recent
version (at the least, 5.004 and beyond) your problem lies elsewhere, in one
of the other constructs listed in the perldiag entry.
Michael
--
Administrator www.shoebox.net
Programmer, System Administrator www.gallanttech.com
--
