首页 > 编程 > Perl > 正文

如何在Perl数组中删除某个值?

2020-02-23 19:45:42
字体:
来源:转载
供稿:网友

为了删除数组中的元素,在一般位置使用undef$etc是不可行的,除了shift pop在某些特殊位置处理数据,那么如何在Perl数组中删除某个值?武林技术频道小编带你细细道来。

从下面的代码开始:

 

use Data::Dumper qw(Dumper);
my @dwarfs = qw(Doc Grumpy Happy Sleepy Sneezy Dopey Bashful);
print Dumper /@dwarfs;


使用Data::Dumper打印时,得到如下输出:

 

 

 


$VAR1 = [
          'Doc',
          'Grumpy',
          'Happy',
          'Sleepy',
          'Sneezy',
          'Dopey',
          'Bashful'
        ];


将元素赋值为undef

 

使用undef()函数的返回值:

 

use Data::Dumper qw(Dumper);
my @dwarfs = qw(Doc Grumpy Happy Sleepy Sneezy Dopey Bashful);
 
$dwarfs[3] = undef;
 
print Dumper /@dwarfs;


这些代码会把3号元素(数组中第4个元素)赋值为undef,但是并不改变数组的大小:

 

 

 


$VAR1 = [
          'Doc',
          'Grumpy',
          'Happy',
          undef,
          'Sneezy',
          'Dopey',
          'Bashful'
        ];


直接对数组的某个元素使用undef()函数也会产生相同的结果:

 

 

 


use Data::Dumper qw(Dumper);
my @dwarfs = qw(Doc Grumpy Happy Sleepy Sneezy Dopey Bashful);
 
undef $dwarfs[3];
 
print Dumper /@dwarfs;


所以,$dwarfs[3] = undef; 和 undef $dwarfs[3];的作用是一样的,它们都能把值赋成undef。

 

使用splice从数组移除元素
splice函数会从数组中彻底删除元素:

 

use Data::Dumper qw(Dumper);
my @dwarfs = qw(Doc Grumpy Happy Sleepy Sneezy Dopey Bashful);
 
splice @dwarfs, 3, 1;
 
print Dumper /@dwarfs;
$VAR1 = [
          'Doc',
          'Grumpy',
          'Happy',
          'Sneezy',
          'Dopey',
          'Bashful'
        ];

如何在Perl数组中删除某个值?就为各位朋友们总结到这里了,是不是知道应该怎么学习了,只要经过一段时间的学习,大家就会掌握有关的内容。

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表

图片精选