Perl中的引用

Perl中的引用的目的：调用子程序时，默认做法是把传入参数复制到@_数组，若数组过大，则引起不必要的操作，使用引用来解决这问题

 

本来是

my @a=qw(a b c);

&func(@a);

sub func{

        print @_;

}

 

使用引用后:

my @a=qw(a b c);

&func(\@a);

sub func{

        $ref=shift;

        print "@{$ref}";

}