Perl中怎样从数组中删除某个值?

页面导航:首页 > 脚本专栏 > perl > Perl中怎样从数组中删除某个值?

Perl中怎样从数组中删除某个值?

来源:互联网 作者:脚本宝典 时间:2015-07-21 18:42 【

我不确定undef是否和从数组中消除值有确切的关系,猜测一下,如果我们将undef视为空,那么会有一些联系。但通常来说,将某些东西赋值为undef和删除某些东西是不一样的。 首先来看怎

我不确定undef是否和从数组中消除值有确切的关系,猜测一下,如果我们将undef视为"空",那么会有一些联系。但通常来说,将某些东西赋值为undef和删除某些东西是不一样的。

首先来看怎样把数组的元素赋值为undef,之后再了解如何从数组中删除元素。

从下面的代码开始:

复制代码代码如下:


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'
        ];


可以看到,在这个例子中,数组因为我们从数组中间移除了一个元素而缩短了一个单位。


这也就是怎样从数组中删除一个元素。


Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<