Re^2: subroutine function

my $left=$_[0];
my $right=$_[1];
[download]

which is the same as

my $left = shift @_;
my $right = shift @_;
[download]

It is not the same at all. The first version doesn't modify @_. The second one does modify it. The difference is often very important. (For example, if you're planning on using goto.)

use Test::More;
use Data::Dumper;

sub func1 {
    my $left=$_[0];
    my $right=$_[1];
    goto \&Data::Dumper::Dumper;
}

sub func2 {
    my $left = shift @_;
    my $right = shift @_;
    goto \&Data::Dumper::Dumper;
}

my @args = qw( a b );

# Are they the same??
is(
    func1(@args),
    func2(@args),
    "they're the same!",
);

done_testing();
[download]

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Comment on Re^2: subroutine function Select or Download Code

Replies are listed 'Best First'.
Re^3: subroutine function by runrig (Abbot) on Oct 11, 2012 at 20:43 UTC
The difference is often very important. And the difference often doesn't matter at all. As in the OP's example. In which case they are essentially the same. Similar. Whatever. Yes, I know what the difference is; I often pass @_ to other methods after shifting off the object. And often I don't.	[reply]