How do you get multiple arguments in Perl functions?

perl shift
paxdiablo picture paxdiablo · Jan 12, 2012 · Viewed 34.5k times · Source

In my code, I'm been using the fairly primitive method of extraction parameters from a function call as follows:

sub addSix ($$$$$$) {
    my ($a, $b, $c, $d, $e, $f) = (shift, shift, shift, shift, shift, shift);
    return $a + $b + $c + $d + $e + $f;
}

print addSix (1, 2, 3, 4, 5, 6) . "\n";

(forget the primitive code, the salient bit is the multiple shift calls).

Now that seems rather messy to me and I though Perl may have something like:

my ($a, $b, $c, $d, $e, $f) = shift (6);

or something similar.

But I cannot find anything like that. I know I can use arrays for this but I think I'd still have to unpack the array into individual scalars. That wouldn't be too bad for the example case above, where the six parameters are similar, but I'm more interested in the case where they're not really suitable as an array.

How can you extract parameters without ending up with a morass of shift keywords?

Answer

Mat picture Mat · Jan 12, 2012

You can simply type:

my ($a, $b, $c, $d, $e, $f) = (@_);

If you didn't have that prototype, and if that sub got called with more than six arguments, the ones after the sixth are simply "not matched", $f would be set to the sixth argument.

If you want to catch all the arguments after the sixth, you can do it like this.

my ($a, $b, $c, $d, $e, $f, @others) = (@_);

If your list of scalars is longer than the list on the right side, the last elements will be undef.

Related questions

Can anybody please explain (my $self = shift) in Perl

I'm having a really hard time understanding the intersection of OO Perl and my $self = shift; The documentation on these individual elements is great, but none of them that I've found touch on how they work together. I've been using …

Read More
Is 'shift' evil for processing Perl subroutine parameters?

I'm frequently using shift to unpack function parameters: sub my_sub { my $self = shift; my $params = shift; .... } However, many on my colleagues are preaching that shift is actually evil. Could you explain why I should prefer sub my_sub { my ($…

Read More
Perl shift operator simple question

What's the purpose of the following two lines of perl?? my $host = shift || 'localhost'; my $port = shift || 200; That should return localhost and port 10. What is the shift keyword??

Read More