请教^的问题

Albert_King

想请问一下，如何在一个数组中删除特定数的一个参数呢？ 比如如下代码，我想要删除数组中的2，^是非，也是开始符号，那么我要怎么使用它才对呢？多谢大家帮忙！
my @all=(2,24,42);
my $select=2;
my @foundlist = grep(/^[^$select$]/, @all);
print "@foundlist\n";

sunzhiguolu

回复 1# Albert_King
别使用 grep 操作符, 用 map 操作符即可.

   

Albert_King

回复 2# sunzhiguolu
请问对于我的代码，怎么实现呢？


   

sunzhiguolu

回复 3# Albert_King

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my @all = (2, 24, 42);
   
7. my $select = 2;
   
8. 
   
9. foreach (@all){
   
10.         next if (m/\A$select+\Z/);
    
11.         print join ('', map {$_ !~ m/$select/ ? $_ : ()} split //, $_), "\n";
    
12. }
    

复制代码

sunzhiguolu

回复 3# Albert_King
其实你的这个要求不使用 (grep | map) 操作符处理起来反而会更加简单.

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my @all = (2, 24, 42);
   
7. my $select = 2;
   
8. foreach (@all){
   
9.         my @aNums = split /$select/, $_;
   
10.         print (@aNums, "\n") if (@aNums);
    
11. }
    

复制代码

RE_HASH

^在[]里才是not,外面是开始
试试 @new = grep !/$select/, @all；

Albert_King

回复 5# sunzhiguolu 多谢，能够实现，不过如果能还是数组就更好了，感谢


   

Albert_King

回复 6# RE_HASH 这正是我想要的，我还想请问一下在这里[]有什么作用呢？


   

sunzhiguolu

回复 7# Albert_King
加一句:
if (@aNums){
...
    foreach (@aNums){
        push @aWithout2, $_;
    }
}

   

sunzhiguolu

这样试下:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aNums = (2, 24, 42, 4242);
   
6. my @aWithout2 = map { my @aV = split /2/, $_;  @aV  ? join ('', @aV) : () } @aNums;

复制代码