public
Created

  • Download Gist
test.pl
Perl
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
foo('bar', 100)
 
sub foo {
# $first = 'bar'
my $first = shift;
my $first = shift @_;
my $first = $_[0];
my ($first) = @_;
 
# $first = 'bar', $second = 100;
my $first = shift;
my $second = shift;
 
my $first = $_[0];
my $second = $_[1];
 
my ($first, $second) = @_;
}

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.