删除项

jiujiujiu338

1. #!/urs/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @array=qw{1 2 3 4 5 6 7 8 9 10};
   
6. foreach(@array){
   
7.         if ($_>2 && $_<7){
   
8.         #删除该项；
   
9.         }
   
10. }
    
11. 
    
12. print "@array";

复制代码

最后想得到
1 2 7 8 9 10
不知该怎么操作呀，还请帮忙，多谢~~

zhlong8

请用 grep

Perlvim

Perl 数组没有直接删除某个元素的内置函数，可能考虑到删除后的排序问题，可以用 grep 筛选函数方便的实现

grep { $_ > 2 && $_ < 7 } @array;

herer

3L办法不错

vicky_zhao03

可是得到的是3456阿，不是1278910阿

kk861123

回复 5# vicky_zhao03


   那就变换下表达式啊~

1. grep {! ($_ > 2 && $_ < 7) }

复制代码

或

1. grep { $_ <= 2 ||  $_ >= 7 }

复制代码