Re: Re: Can this If/Else be condensed into a 1 liner with a trailing If?

Isn't

while (defined($_ = <STDIN>))
[download]

exactly the same as:

while(<STDIN>)
[download]

in perl 5.005 and above?

I remember a time when they *weren't* the same, but I'm pretty sure that they are now.

-Blake

Comment on Re: Re: Can this If/Else be condensed into a 1 liner with a trailing If? Select or Download Code

Replies are listed 'Best First'.
Re: Re: Re: Can this If/Else be condensed into a 1 liner with a trailing If? by pjf (Curate) on Oct 02, 2001 at 08:17 UTC
Well spotted, and quite correct. When dealing with numbers I tend to step to a higher level of paranoia, simply because zero is a number, but it's not true. This paranoia occasionally wears off onto the code around it. ;) Cheers, Paul	[reply]
(Re:)**4 Can this If/Else be condensed into a 1 liner with a trailing If? by bwana147 (Pilgrim) on Oct 02, 2001 at 19:08 UTC
Actually, whithin a `while (<STDIN>) {...}`, the `$_` contains the trailing `\n`. So even though a line might contain a lone zero, it will indeed be `"0\n"`, which is definitely true. --bwana147	[reply] [d/l] [select]
Re: (Re:)**4 Can this If/Else be condensed into a 1 liner with a trailing If? by Anonymous Monk on Oct 02, 2001 at 21:28 UTC
But a textfile could be malformed and missing the \n at the end of the last line (most Windows text editors forget to put a \n at the end of the last line) thus $_ could contain "0"	[reply]
Re: Re: (Re:)**4 Can this If/Else be condensed into a 1 liner with a trailing If? by blakem (Monsignor) on Oct 02, 2001 at 21:46 UTC