请教^的问题

sunzhiguolu

这样试下:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aNums = (2, 24, 42, 4242);
   
6. my @aWithout2 = grep {s/2//g; $_} @aNums;

复制代码

RE_HASH

抱歉前面的回答没测试，这个有效：
$> cat aaa
my @all=(2,24,42);
my $select=2;
my @foundlist = grep !/^$select$/, @all;
print "@foundlist\n";

$> perl aaa
24 42

Albert_King

回复 12# RE_HASH 多谢啦


   

sunzhiguolu

回复 1# Albert_King
其实你的问题不是 ^ 元字符的问题, 而是应该学习下有关字符组的知识.

   

815138698

my @foundlist = grep {$_ !=2} @all;