一个关于glob的问题，有些不明白

twilightagain

1. #!/usr/bin/perl -w
   
2. use 5.010;
   
3. 
   
4. my ($j, $k) = ('~/a', '~/b');
   
5. $_ = glob $_ for ($j, $k);
   
6. say "$j\n$k";
   

复制代码

输出：
Use of uninitialized value $k in concatenation (.) or string at ./e.pl line 6.
/home/blahblah/a

不明白为什么$k会是未初始化的状态，希望大家帮忙看看

环境：
This is perl, v5.10.1 (*) built for x86_64-linux-gnu-thread-multi

twilightagain

继续在线等……希望知道的能说下

gaoyang636

如果老老实实写一个for的循环，是肯定没问题的……在glob之前，$j $k也都是有赋值的；glob那句开始时，将两个变量undef了，然后应该是这句实际上仅仅执行了一次，仅操作了$j的原因吧？

Perlvim

for 循环 中 $_ 的值的变化，就修改了遍历的变量本身。

#!/usr/bin/perl -w
use 5.010;

my ($j, $k) = ('~/a', '~/b');
(my $a = $_) = glob $_ for ($j, $k);
say "$j\n$k";

yybmsrs

glob有点特殊，得是list环境

twilightagain

3楼的说法不对，即使是前置的for循环，照样是这个错；而且把glob换成 .' blahblah' 之类的就不会有错

感谢4楼的帮忙，但是我原本的意图就是要修改 $j 和 $k 这两个变量本身

5楼所说的，得是list环境，具体什么意思，能说的详细点吗……谢谢

Perlvim

值的转换，要进行验证，有些不存在的目录，是glob不出来东西的。

#!/usr/bin/perl -w
use 5.010;

my ($j, $k) = ('~/a', '~/b');
for ($j, $k) {
    if (glob $_) {
       $_ = glob $_ ;
    }
}
say "$j\n$k";

twilightagain

根据5楼所说的，结合文档，发现问题了，多谢

（$_） = glob $_；

这样结果就对了，glob在标量上下文的求值方法和列表上下文不同

另外7楼说的确实不对，glob只是按csh的规则进行wildcard展开，根本不会关心是不是存在这个东西的，实际上我的家目录下既没有a这个文件也没有b这个文件，但是照样可以展开

lxsyd

。