Re: truth in while condition

[johngg]

You haven't chomped the newline.

johngg@shiraz:~/perl/Monks$ perl -E '
$_ = qq{0\n};
say $_ ? q{True} : q{False};
chomp;
say $_ ? q{True} : q{False};'
True
False

[TISON]

Thanks for your reply! Sounds reasonable but what do you think about comment by LanX? It seems they are technically different.

[LanX]

Both are right, but it's a bit tricky to construct a while-condition doing a readline and exiting at false.

I'd rather use an explicit last with condition inside the body.

use strict;
use warnings;
use feature 'say';


while ( $_= <DATA>, chomp, $_) {
    say;
}

__DATA__
3
1
0
2

-->

3
1

(NB: Iterators don't necessarily loop over lines where they need to chomp, <update see here>)

[TISON]

Get it! Again thanks to the help of both of you~