perl语言之列表与数组

第1课时 列表与数组

---

1）直接列表

（12，’abc‘，3.14，True）   # 这是一个直接量列表

2）都是字符串可以用qw

# 两者等价，最好不要有内嵌变量
@a = qw(abc def ghi)  
@b = ('abc','def','ghi')
@c = ()

3）范围列表

@a = (1..10)
@b = (1..10, 21..30)
# 字符照样可以使用范围运算符
@list=(aa..zz);
foreach (@list){
    print "$_ ";
}

4）初始化

($a, $b, $c) = qw(li zhi xin);

5）获取数组元素

@name=qw(li zhi xin);
print $name[0];
print $name[1];
print $name[$#name]; #最后一个索引对应的数组元素
print $name[-1];          #最后一个索引对应的数组元素

6）pop与push，shift与unshift

@array = (5..9);
$end = pop @array;         #9被从结尾取了出来
push @array, 10;             #10被加入到结尾
$begin = shift @array;     #5被从开头取了出来 
unshift @array, 11;          #11被加入到开头

7）splice操作

splice @arrays, $loccation, $length, $content 
#$location: 元素索引
#$length: 替换长度，0为插入操作
#$content:要替换的内容，字符串或列表

8）遍历数组

@rocks = qw/ bed slate lave /
foreach $rock (@rocks){
    $rock  = "\t$rock";
    $rock .= "\n";
}
#省略变量的遍历方法
foreach (@rocks){
    $_  = "\t$rock";
    $_ .= "\n";
} 

9）排列数组