为何map返回的不是相匹配的原内容，而是pattern本身？

perlplus33

如题，请教各位。新手，不好意思，测试了很久，太耽误时间了。
代码如下：
思路：输入一个要查询的字符串，检查某个目录下所有文件名是否有匹配的。如果有，则返回所有匹配的文件名。

use 5.010;
use Cwd;
chomp( $mydir = cwd);
#@myfiles = glob "$mydir/xiaoyangtuo/*";
@myfiles = glob "$mydir/xiaoyangtuo/*";
#print "\@myfiles are: @myfiles\n";
print "input a pattern as part of file name for earhing: \n";
chomp ($mypattern =<STDIN>);
while ($mypattern) {
       @myfile_search = map /$mypattern/g, @myfiles;
       #@myfile_search = map /$mypattern/g, glob(".* *"); #this line should go with chdir which is not correct right now;
        print "myfile_search is: @myfile_search \n";
        chomp ($mypattern =<STDIN>);
}

perlplus33

改 map 为 grep 结果就是我所要得内容。

但是用map 如何做呢？学习中，希望能有人在我花费大量时间之前，给我指点一下，谢谢。

zhlong8

map 就是一一映射，返回结果肯定和 @myfiles 中的元素个数一样的，你这里用 map 的话会返回匹配的结果，即是否匹配。然后再用下标索引找 @myfiles 中匹配的的元素，总之没有 grep 好用

iLRainyday

grep和map各有用途，前者用于picking，后者用于transforming。你的要求显然是个picking element。
如果非要用map,那就这样子 map /($pattern)/, @elements，在map的表达式部分是list context，加上括号，返回匹配的部分。regex部分加个/g搞毛啊？

iLRainyday

map 就是一一映射，返回结果肯定和 @myfiles 中的元素个数一样的，你这里用 map 的话会返回匹配的结果，即是 ...
zhlong8 发表于 2011-03-30 23:03

map可能返回空列表，也可能小于或大于@myfiles的元素个数

zhlong8

map可能返回空列表，也可能小于或大于@myfiles的元素个数
iLRainyday 发表于 2011-03-30 23:56

    {:3_186:} 多谢指出，是我疏忽。 map 返回一个列表，对每个元素 map 的结果提供 list context，因为 Perl 的列表和数组在 list context 下会展开，所以返回列表或数组的时候元素个数并不一定严格相等。

perlplus33

多谢指出，是我疏忽。 map 返回一个列表，对每个元素 map 的结果提供 list context，因 ...
zhlong8 发表于 2011-03-31 00:08

谢谢两位。理解上比以前清晰了。还是要多“动手”啊。

perlplus33

grep和map各有用途，前者用于picking，后者用于transforming。你的要求显然是个picking element。
如果非要 ...
iLRainyday 发表于 2011-03-30 23:44

谢谢哦。看来我是滥用了羊驼书中的“Thus, we can always use a map in place of a grep, but not vice versa.”
不过改 map /$mypattern/, $myfiles 为 map /($mypattern)/, $myfiles 之后，还是只能输出个数正确的 $mypattern, 而不是匹配的文件全名称。

iLRainyday

回复 8# perlplus33


    我以为你就是要匹配的那一部分。那就用grep得了。