Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re^3: truth in while condition

by LanX (Archbishop)
on Sep 30, 2018 at 12:10 UTC ( #1223324=note: print w/replies, xml ) Need Help??


in reply to Re^2: truth in while condition
in thread truth in while condition

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>)

Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery FootballPerl is like chess, only without the dice

Replies are listed 'Best First'.
Re^4: truth in while condition
by TISON (Acolyte) on Sep 30, 2018 at 12:24 UTC
    Get it! Again thanks to the help of both of you~

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1223324]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (5)
As of 2019-07-19 17:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?