举例学perl笔记： 数组

定义： my @animals = ( "camel" , "llama" , "owl" ) ;

数组最后一个元素位置(从0开始编号)： $#array

数组大小： $#array+1  @array

array slice ：

---

循环遍历数组

 

my @animals = ("camel", "llama", "owl");

for (my $var = 0; $var <= $#animals; $var++) {
    print $animals[$var],"/n";
}     

my @sa = sort @animals;      

 

sub my_show{
    my $i;
    print "Show array:/n";
    for ($i=0; $i<=$#_; $i++){
        print "$i : $_[$i]/n";     
    }
    print "/n";       
}


my @animals = ("camel", "llama", "owl");
my_show(@animals); 
  
my @sa = sort @animals;     
my_show(@sa);

my @sa = reverse @animals;     
my_show(@sa);     

=pod
for (my $var = 0; $var <= $#animals; $var++) {
    print $animals[$var],"/n";
}
=cut  

 

Show array:
0 : camel
1 : llama
2 : owl

Show array:
0 : camel
1 : llama
2 : owl

Show array:
0 : owl
1 : llama
2 : camel