37,743
社区成员




sub fun
{
$temp=$_;
print @$temp,"\n";
}
fun($test[0]);
use strict;
use warnings;
sub fun
{
my $cs=$#_+1;
print "the num of member in \@_ is:";
print $cs,"\n";
for my $j(0..$cs)
{print "$_[$j]","\n";}
}
use strict;
use warnings;
my @test=([1,2,3],[4,5,6],[7,8,9]);
my $temp=$test[0];
print @$temp->[2], "\n";
print @$test[0]->[2], "\n";
use strict;
use warnings;
my @test=([1,2,3],[4,5,6],[7,8,9]);
my $temp=$test[0];
print $temp->[2], "\n";
print $test[0]->[2], "\n";
use strict;
use warnings;
my $test = [[1,2,3],[4,5,6],[7,8,9]];
print $test->[0][2], "\n";