在 Perl 数组中添加和删除元素
Perl 提供了大量有用的函数,以便在数组中添加和删除元素。你可能有一个问题,函数是什么?到目前为止,你已经使用过 print 函数来打印不同值。类似地,还有不同的函数或有时称为子例程,可用于其他不同功能。
序号 | 类型及描述 |
---|---|
1 | push @ARRAY, LIST 将列表的值推送到数组结尾。 |
2 | pop @ARRAY 弹出发出并返回数组的最后一个值。 |
3 | shift @ARRAY 移出数组的第一个值并返回它,使得数组缩短 1,其他值向下移动。 |
4 | unshift @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
广告