这是个什么错误

sunzhiguolu

看了篇帖子，内容如下:

文件a：
a
b
c
d
e
f
g
文件b：
1
2
3
4
想要实现匹配到d 后在d上一行读入文件b ，怎么实现？
结果：
a
b
c
1
2
3
4
d
e
f
g

我的代码如下:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. open (my $FHra, '<', pop);
   
6. open (my $FHrb, '<', pop);
   
7. 
   
8. while (<$FHra>){
   
9.     if (/\Ad\Z/){
   
10.         print while (<$FHrb>);
    
11.     }
    
12.     print;
    
13. }
    
14. 
    
15. close ($FHra);
    
16. close ($FHrb);
    

复制代码

perl abc.pl b a
--------------------------

Uninitialization Error

还请大家指点，谢谢大家。。。

sunzhiguolu

$_ 变量不是全局的吗?

sunzhiguolu

问题解决了，

1. 
   
2. if (/\Ad\Z/){
   
3.     print while (defined (local $_ = <$FHrb>));
   
4. }
   

复制代码

但是为什么出现次错误却不明白, 哪位大神给指点一下? 谢谢。

zhlong8

用 while <> 这种方式读文件相当于

while (defined ($_ = <>)) { ... }

内层那个循环读完了 $_ 最后就是 undef，不会神奇的恢复为外层的值。所以接下来那个 print; 自然会提示这个警告

我认为这是设计之初的 bug 但是为了兼容没法改了，逻辑上正确的实现应该是
{
  local $_;
  while (defined ($_ = <>) {
      ...;
  }
}

sunzhiguolu

回复 4# zhlong8

多谢版主大神指导。