Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re^3: Printing an array using while loop

by haukex (Bishop)
on Oct 07, 2018 at 20:40 UTC ( #1223644=note: print w/replies, xml ) Need Help??

in reply to Re^2: Printing an array using while loop
in thread Printing an array using while loop

put handles <> on your array: while(my $item = <@array>) { print("$item\n"); }

Although this works in this particular case, I wouldn't recommend it: The <> actually doesn't do anything with "handles" (like <$filehandle>, which is readline), instead it's glob in disguise, and glob has several caveats. I would suggest a regular foreach, or perhaps each (Perl >= 5.12, which was not available in 2007, at the time of this thread).

$ perl -MO=Deparse -e 'while(my $item = <@array>) { print "$item\n" }' while (defined(my $item = glob(join $", @array))) { do { use File::Glob (); print "$item\n" }; }

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (4)
As of 2020-08-12 07:10 GMT
Find Nodes?
    Voting Booth?
    Which rocket would you take to Mars?

    Results (64 votes). Check out past polls.