Perl学习（六）

引用

#/usr/bin/perl -w
@array={"one","two","three"};

$array_ref=\@array;

print "$array_ref\n";

sub add_numbers {
my $array_ref = shift;
}

@numbers=(11,2,3);

$result=add_numbers(\@numbers);

print "$result\n";