Perl:从数组中移除具有特殊字符的元素

Question

当数组是一个设备名或一个ip地址时，但是当元素名下面的特殊字符不起作用时，我可以从数组中删除元素。

请给我建议，因为我已经尝试了2-3种方法，但都不起作用.

例如，如果键值是网络或ip 100.100.100.100，下面的逻辑是好的，但当密钥名称是网络交换机或路由器网，它是不移除。

option1 

@array = eval { grep { $_ != $Key } @array1; };

Option2
@array = eval{ grep { $_->[0] ne "$Key" } @array1; }; 


2014/06/29 11:14:56 $VAR1 = [
          '100.2.2.3-0-2',
          '100.4.7.1-0-2',
          '100.2.120.2-0-2',
          '100.1.2.29-3-2',
          'network-0-2',
          'switch-1-1',
          'network-0-2',
          'router45',
           ];

谢谢,

Answer 1

use warnings;
use strict;

my @array = (
          '100.2.2.3-0-2',
          '100.4.7.1-0-2',
          '100.2.120.2-0-2',
          '100.1.2.29-3-2',
          'network-0-2',
          'switch-1-1',
          'network-0-2',
          'router45',
           );

# my $key = '100.2.2.3-0-2'; # Either of these will work 
my $key = 'network-0-2';

my @keep;
foreach (@array){
    push @keep, $_ unless $_ eq $key;
}

print Dumper \@keep;

100.2.2.3-0-2
100.4.7.1-0-2
100.2.120.2-0-2
100.1.2.29-3-2
switch-1-1
router45

Answer 2

!=是数字not equal运算符，但由于要测试字符串不等式，请使用ne运算符

my @array = grep { $_ ne $Key } @array1;