perl 这里为什么要加代码块？

zzy7186

1. 
   
2. #!/usr/bin/perl
   
3. use warnings;
   
4. { package Grandpa;
   
5.   $name = "Gramps";
   
6.   sub greetme {
   
7.         print "Hi $Child::name I'm your $name from package Grandpa.\n";
   
8.         }
   
9. }
   
10. 
    
11. { package Parent;
    
12. }
    
13. 
    
14. 
    
15. 
    
16. { package Child;
    
17.   $name = "Baby";
    
18.   print "Hi I'm $name in the Child Package here.\n";
    
19.   Parent->greetme();
    
20. }
    
21. 
    
22. package UNIVERSAL;
    
23. sub AUTOLOAD {
    
24.         print "The UNIVERSAL lookup package.\n";
    
25.         Grandpa->greetme();
    
26. }
    

复制代码

这么在包的都定义在代码块中，package的范围不是到下一次package或则文件结束吗? 去掉代码块结果是一样的
请问这里为何要加上代码块啊？
加上use strict；后出现如下错误：

1. 
   
2. Variable "$name" is not imported at ./a line 17.
   
3. Variable "$name" is not imported at ./a line 18.
   
4. Global symbol "$name" requires explicit package name at ./a line 5.
   
5. Global symbol "$name" requires explicit package name at ./a line 7.
   
6. Global symbol "$name" requires explicit package name at ./a line 17.
   
7. Global symbol "$name" requires explicit package name at ./a line 18.
   
8. Execution of ./a aborted due to compilation errors.
   

复制代码

小弟感觉已经声明包了 为何还要加明确的包呢？ 小弟是初学者。。。望大侠帮忙 谢了

zuerrong

# { package Child;
#   $name = "Baby";
#   print "Hi I'm $name in the Child Package here.\n";
#   Parent->greetme();
# }

这里代码块不是必需的，其作用是让变量在作用域外自动失效。
良好的实践：
（1）去掉这个block;
（2）用my声明变量；
（3）加上use strict。

zzy7186

回复 2# zuerrong


    Thank you very much !!

wtuter

回复 2# zuerrong


    还有一个吧，可以goto

yiten

幸亏你贴出来让大家评判了，不然你是不是觉得这样写代码的很牛？

zzy7186

有点觉得没必要

幸亏你贴出来让大家评判了，不然你是不是觉得这样写代码的很牛？
yiten 发表于 2011-01-28 14:14

yiten

回复 6# zzy7186


perl新手很多很多都是从画葫芦开始的。
网上有很多的perl资料，但是并不是都很优秀。
有些甚至都是很老的写法和用法。