grep

lougiven

请教， perl 里 grep筛选数组，能不能同时返回匹配元素的下标啊？
或者有没有其他方法 能同时筛选，并返回位置

谢谢

Monox

回复 1# lougiven

这个时候用map比较方便。当然把列表传给map前需要进行转换，让下标和数据一起传给map，我相信会有其他人给你帖示例的。
   

lougiven

谢谢啊， 刚才看了一下map，还不是特别明白，希望哪位能给举个例子就好了回复 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 ~]#

复制代码

lougiven

我试一下，非常感谢 回复 4# yestreenstars


   

xiumu2280

or

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

复制代码