Re: Returning first element of an array from a function

In the case you provided, you would do something like this:

( $foo ) = split ( /\./, $bar );
[download]

By wrapping the left hand side in parens, you put the assignment into list context, and the first element of that list is stored in $foo.

For more complex cases, sometimes its helpful to wrap the right-hand-side in parens, and then index into the element that you want returned:

$foo = ( split ( /\./, $bar ) )[0];
[download]

The latter method would allow you to return several elements at once. You could even do this:

( $foo, $boo ) = ( split ( /\./, $bar ) )[ 1, 0 ];
[download]

...which would return the 2nd element to $foo, and the 1st element to $boo.

Dave

Comment on Re: Returning first element of an array from a function Select or Download Code

Replies are listed 'Best First'.
Re: Re: Returning first element of an array from a function by biosysadmin (Deacon) on Mar 17, 2004 at 07:50 UTC
I actually prefer to do the following for the sake of readability: `($foo,undef) = split( /\./, $bar );` [download] That way I explicitly throw away the rest of the list instead of discarding it implicitly.	[reply] [d/l]
Re: Re: Re: Returning first element of an array from a function by Anonymous Monk on Mar 17, 2004 at 08:43 UTC
`($foo,undef) = split( /\./, $bar );` That way I explicitly throw away the rest of the list instead of discarding it implicitly. You're not explicitly throwing away the rest of the list... you're just explicitly ignoring the second element returned and then non-explicitly ignoring the rest of it. Using undef to ignore returned elements is only useful if you're going to capture something after the undef'ed element (ie: `($foo, undef, $bar) = split(/\./, $baz);` or `(undef, $foo) = split(/\./, $bar);`).	[reply] [d/l] [select]
Re^4: Returning first element of an array from a function by Anonymous Monk on Mar 17, 2004 at 08:55 UTC
TIMTOWTDI of course: `# this: ($foo, undef, $bar) = split(/\./, $baz); # can also be done as: ($foo, $bar) = (split(/\./, $baz))[0,2]; # and this: (undef, $foo) = split(/\./, $bar); # can also be done as: ($foo) = (split(/\./, $bar))[1];` [download]	[reply] [d/l]
Re^5: Returning first element of an array from a function by Anonymous Monk on Mar 17, 2004 at 09:10 UTC


There's more than one way to do things
	PerlMonks