Perl 教程 之 Perl 数组 6

Perl 数组

Perl 数组一个是存储标量值的列表变量，变量可以是不同类型。

添加和删除数组元素

Perl 提供了一些有用的函数来添加和删除数组元素。

如果你之前没有编程经验，可能会问什么是函数，其实我们之前使用的 print 即是一个输出函数。

下表列出了数组中常用的操作函数：

序号 类型和描述
1 push @ARRAY, LIST
将列表的值放到数组的末尾

2 pop @ARRAY
删除数组的最后一个值

3 shift @ARRAY
弹出数组第一个值，并返回它。数组的索引值也依次减一。

4 unshift @ARRAY, LIST
将列表放在数组前面，并返回新数组的元素个数。

实例

!/usr/bin/perl

创建一个简单是数组

@sites = ("google","baidu","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";