问：for循环grep结果不解[急]

liang573728

1. @a=qw(aa bb cc dd ee);
   
2. push @a,"ff";
   
3. @b=qw(aa bb cc dd ee);
   
4. push @b,"gg";
   
5. for(@b){
   
6. print grep /$_/,@a;
   
7. print "\n";
   
8. }

复制代码

怎么结果是：
aabbccddeeff
aabbccddeeff
aabbccddeeff
aabbccddeeff
aabbccddeeff
aabbccddeeff
的？

不是
aa
bb
cc
dd
ee
的吗？

怎么有这样的差别的？

[ 本帖最后由 liang573728 于 2008-4-11 13:42 编辑 ]

__lxmxn__

你的 grep 使用有问题，请看有关 grep 的文档。

liang573728

请指点下？
我测试过，如果改为：
@a=qw(aa bb cc dd ee);
push @a,"ff";
@b=qw(aa bb cc dd ee);
push @b,"gg";
for $c(@b){
print grep /$c/,@a;
print "\n";
}
则能输出：
aa
bb
cc
dd
ee

难道使用$_与定义变量$c有区别的吗？

[ 本帖最后由 liang573728 于 2008-4-11 14:00 编辑 ]

cobrawgl

你第一个程序中的 $_ 和第二个程序中的 $c 是不一样的
第二个程序中的 $_ 是 @a 的元素而不是 @b 的元素

churchmice

原帖由 liang573728 于 2008-4-11 13:59 发表
请指点下？
我测试过，如果改为：
@a=qw(aa bb cc dd ee);
push @a,"ff";
@b=qw(aa bb cc dd ee);
push @b,"gg";
for $c(@b){
print grep /$c/,@a;
print "\n";
}
则能输出：
aa
bb
cc
dd
ee

...

1. 
   
2. for(@b){
   
3. print grep /$_/,@a;
   
4. print "\n";
   
5. }
   

复制代码

for循环默认循环变量是$_
同时grep { some_expression } @a
在{some_expression}中默认的变量也是$_
所以你程序中的$_其实是对于@a而言的


关键此处有两个$_,所以需要区分

不死草

哦，问题出在“$_”不能直接被引用，你可以使用一个中间变量。
Example:
***********************
@a=qw(aa bb cc dd ee);
push @a,"ff";
@b=qw(aa bb cc dd ee);
push @b,"gg";
for(@b){
        $c=$_;            #使用一个中间变量$c;
print  grep /$c/,@a ;
print "\n";
}

liang573728

谢谢，churchmice 不死草 指点。
想明白了。