Question

perl 数组中如何删除元素

Answer 1

1. 用grep函数

函数名 grep
调用语法 @foundlist = grep (pattern, @searchlist);
解说 与同名的UNIX查找工具类似，grep函数在列表中抽取与指定模式匹配的元素，参数pattern为欲查找的模式，返回值是匹配元素的列表。
例子 @list = ("This", "is", "a", "test");
@foundlist = grep(/^[tT]/, @list);
结果 @foundlist = ("This", "test");

2. 用map函数

函数名 map
调用语法 @resultlist = map (expr, @list);
解说 此函数在Perl5中定义，可以把列表中的各个元素作为表达式expr的操作数进行运算，其本身不改变，结果作为返回值。在表达式expr中，系统变量$_代表各个元素。
例子
1、@list = (100, 200, 300);
@results = map ($_+1, @list);

2、@results = map (&mysub($_), @list);
结果 1、(101, 201, 301)
2、无

3. 用splice或者delete

函数名 splice
调用语法 @retval = splice (@array, slipelements, length, @newlist);

Answer 2

用grep或者splice。

@a=(1,2,3,4,5);
@a=grep(/[^3]/,@a);
print "@a\n";
结果为1 2 4 5;

@a=(1,2,3,4,5);
splice(@a,2,1);
print "@a\n";
结果为1 2 4 5

Answer 3

哪里用的着上面的答案那么复杂，你想删除哪个元素只要delete就行了，比如delete $a[0]

Answer 4

my @a = 'a' .. 'e';
my $del_index = 3;
splice @a, $del_index, 1;
print @a;

================
abce