grep

lougiven

請教， perl 里 grep篩選數(shù)組，能不能同時返回匹配元素的下標(biāo)��？
或者有沒有其他方法 能同時篩選，并返回位置

謝謝

Monox

回復(fù) 1# lougiven

這個時候用map比較方便。當(dāng)然把列表傳給map前需要進(jìn)行轉(zhuǎn)換，讓下標(biāo)和數(shù)據(jù)一起傳給map，我相信會有其他人給你帖示例的。
   

lougiven

謝謝啊， 剛才看了一下map，還不是特別明白，希望哪位能給舉個例子就好了回復(fù) 2# Monox


   

yestreenstars

醬紫？

1. [root@localhost ~]# cat p
   
2. #!/usr/bin/perl
   
3. use 5.010;
   
4. my @test = qw/t e s t/;
   
5. say join "\n", map { "$_ $test[$_]" } 0 .. $#test;
   
6. [root@localhost ~]# ./p
   
7. 0 t
   
8. 1 e
   
9. 2 s
   
10. 3 t
    
11. [root@localhost ~]#

復(fù)制代碼

lougiven

我試一下，非常感謝 回復(fù) 4# yestreenstars


   

xiumu2280

or

1. [each @data] for (0..$#data);

復(fù)制代碼