在 Perl 数组中添加和删除元素


Perl 提供了大量有用的函数,以便在数组中添加和删除元素。你可能有一个问题,函数是什么?到目前为止,你已经使用过 print 函数来打印不同值。类似地,还有不同的函数或有时称为子例程,可用于其他不同功能。

序号类型及描述
1push @ARRAY, LIST
将列表的值推送到数组结尾。
2pop @ARRAY
弹出发出并返回数组的最后一个值。
3shift @ARRAY
移出数组的第一个值并返回它,使得数组缩短 1,其他值向下移动。
4unshift @ARRAY, LIST
在前置列表中添加数组,并返回新数组中的元素数量。

示例

 演示

#!/usr/bin/perl
# create a simple array
@coins = ("Quarter","Dime","Nickel");
print "1. \@coins = @coins\n";

# add one element at the end of the array
push(@coins, "Penny");
print "2. \@coins = @coins\n";

# add one element at the beginning of the array
unshift(@coins, "Dollar");
print "3. \@coins = @coins\n";

# remove one element from the last of the array.
pop(@coins);
print "4. \@coins = @coins\n";

# remove one element from the beginning of the array.
shift(@coins);
print "5. \@coins = @coins\n";

输出

将产生以下结果 −

1. @coins = Quarter Dime Nickel
2. @coins = Quarter Dime Nickel Penny
3. @coins = Dollar Quarter Dime Nickel Penny
4. @coins = Dollar Quarter Dime Nickel
5. @coins = Quarter Dime Nickel

更新时间:2019 年 11 月 28 日

2K+ 浏览量

开启你的 职业

完成课程并获得认证

开始
广告