Re: passing arrays to subroutines

[gopalr]

in reply to passing arrays to subroutines

@arr=('1', '2', '3');

test(\@arr);

sub test
{
    my $a=@_[0];

    print "\n@$a";

}

[nobull]

    my $a=@_[0];

Unpacking @_ with explicit subscripts is inefficient and unsightly. Using an array slice in a scalar context is also messy.

    my ($a)=@_;

or

    my $a=shift;