【perl编程】perl数组
415. perl数组
返回数组长度：
1. 方法1：
my @array = (1, 2, 3, 4, 5);
my $length = scalar @array;
print "数组长度为: $length\n";2. 方法2：
my @array = (1, 2, 3, 4, 5);
my $length = @array;
print "数组长度为: $length\n";
| 序号 | 类型和描述 |
|---|---|
| 1 | push @ARRAY, LIST
将列表的值放到数组的末尾 |
| 2 | pop @ARRAY
删除数组的最后一个值 |
| 3 | shift @ARRAY
弹出数组第一个值，并返回它。数组的索引值也依次减一。 |
| 4 | unshift @ARRAY, LIST
将列表放在数组前面，并返回新数组的元素个数。 |
1.例子
#!/usr/bin/perl
# 创建一个简单是数组
@sites = ("google","runoob","taobao");
$new_size = @sites ;
print "1. \@sites = @sites\n"."原数组长度 ：$new_size\n";
# 在数组结尾添加一个元素
$new_size = push(@sites, "baidu");
print "2. \@sites = @sites\n"."新数组长度 ：$new_size\n";
# 在数组开头添加一个元素
$new_size = unshift(@sites, "weibo");
print "3. \@sites = @sites\n"."新数组长度 ：$new_size\n";
# 删除数组末尾的元素
$new_byte = pop(@sites);
print "4. \@sites = @sites\n"."弹出元素为 ：$new_byte\n";
# 移除数组开头的元素
$new_byte = shift(@sites);
print "5. \@sites = @sites\n"."弹出元素为 ：$new_byte\n";输出:
1. @sites = google runoob taobao
原数组长度 ：3
2. @sites = google runoob taobao baidu
新数组长度 ：4
3. @sites = weibo google runoob taobao baidu
新数组长度 ：5
4. @sites = weibo google runoob taobao
弹出元素为 ：baidu
5. @sites = google runoob taobao
弹出元素为 ：weibo
