Re^2: Pulling out an element from a function return without using an intermediate list

Replies are listed 'Best First'.
Re^3: Pulling out an element from a function return without using an intermediate list by GrandFather (Saint) on Feb 19, 2007 at 22:16 UTC
`use strict; use warnings; my (undef, $param, undef, $other, @stuff) = dir(); print "undef, $param, undef, $other, @stuff"; sub dir { return (1, 2, 3, 4, 5, 6); }` [download] Prints: `undef, 2, undef, 4, 5 6` [download] Works fine for me. What version of Perl are you using? DWIM is Perl's answer to Gödel	[reply] [d/l] [select]
Re^3: Pulling out an element from a function return without using an intermediate list by ikegami (Patriarch) on Feb 19, 2007 at 22:17 UTC
On the other hand, the following versions all work: `my $aa; my $bb; (undef, $aa, $bb) = dir();` [download] `my ($aa, $bb); (undef, $aa, $bb) = dir();` [download] `(undef, my $aa, my $bb) = dir();` [download] `(undef, my ($aa, $bb)) = dir();` [download] `my ($aa, $bb) = ( dir() )[1, 2];` [download] Update: Apparently, so does the following (contrary to the parent's claims): `my (undef, $aa, $bb) = dir();` [download] Tested the last one on Perl 5.6.0, 5.6.1, 5.8.0 and 5.8.8.	[reply] [d/l] [select]
Re^3: Pulling out an element from a function return without using an intermediate list by Joost (Canon) on Feb 19, 2007 at 22:36 UTC
Yes, that only works in fairly recent perls.(IIRC it's mentioned in programming perl 3, so that would probably make it 5.6.1 onwards) "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply]