[已解决]请问strict 与eval有冲突吗?

hyoryeo

1. 
   
2. [root@gimei-test bin]# more tvinfo.perldata
   
3. $VAR1 = {
   
4.           'husband' => 'fred',
   
5.           'pal' => 'barney'
   
6.         };
   

复制代码

test1

1. #!/usr/bin/perl
   
2. 
   
3. #use strict;
   
4. use warnings;
   
5. use Data::Dumper;
   
6. open (IN, "<tvinfo.perldata");
   
7. 
   
8. undef $/;
   
9. my $TV = eval <IN>;
   
10. 
    
11. print $TV->{husband};
    

复制代码

[root@gimei-test bin]# perl  testing_data_dumper.pl
fred

test2

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use Data::Dumper;
   
6. 
   
7. open (IN, "<tvinfo.perldata");
   
8. 
   
9. undef $/;
   
10. my $TV = eval <IN>;
    
11. 
    
12. print $TV->{husband};
    

复制代码

[root@gimei-test bin]# perl  testing_data_dumper.pl
Use of uninitialized value in print at testing_data_dumper.pl line 21, <IN> chunk 1.

请问各位大大,是我的用法有错吗??为什么用use strict;或者不用use strict;有区别??请指点迷津...

dugu072_cu

eval 处于 use strict 的作用域内，当然会受其限制，eval BLOCK 中，block 的 context 和 eval 所在的context相同，所以，$VAR1 没有定义，自然报错……

dugu072_cu

补充一句，我开始还奇怪， eval 虽然受 strict 的影响，但应该不会被 die 掉，所以你这行打印，不是 use strict 的原因，而是 use warnings 的原因～

hyoryeo

eval 处于 use strict 的作用域内，当然会受其限制，eval BLOCK 中，block 的 context 和 eval 所在的conte ...
dugu072_cu 发表于 2010-06-30 13:25

请问如果处于use strict 的作用域内,怎样使用eval才不会受限??

dugu072_cu

{
   no strict 'vars';
   my $TV = eval <IN>;
   print $TV->{husband};
}

hyoryeo

{
   no strict 'vars';
   my $TV = eval ;
   print $TV->{husband};
}
dugu072_cu 发表于 2010-06-30 14:22

    好的谢谢....我去看perldoc strict