http://qs321.pair.com?node_id=151356


in reply to Re: Re: question about $_ and eof
in thread question about $_ and eof

> A: <STDIN> is returning a newline character '\n', which
> is true. In practice, regardless of O/S, you never get
> the empty string or a bare 0, hence the only false value
> you encounter is undef.

I think, the construct while (<STDIN>) { is just another way to write:  while (defined ($_ = <STDIN>)){, not only for while ($_ = <STDIN>) {.

The difference is not big; only if there is a 0 (=zero) on the last line of a file without \n, it can become essential. But with pure STDIN this case might never happen, only with files or the like...

Best regards,
perl -le "s==*F=e=>y~\*martinF~stronat~=>s~[^\w]~~g=>chop,print"