张争旭 Oo地带

 包变量可以在包内的任何地方使用不需要加包名，而在包外时要加包名。  package main;$main_i = "In main Package!";print("1----$main_i/n"); #包内变量 已经初始化print("2----$main_ii/n"); #包内变量 还没有初始化print("3----$other::

 #my声明的变量，为词法变量#词法变量只能在代码的词法边界内使用的变量。package mypack;my $avi = "Avi in Mypack!/n";package main;print("===========================/n");my $i = "All Scope"; sub fun1{ my $j = "Function

 问题链接：http://topic.youkuaiyun.com/u/20091001/15/40BF4993-8ED7-45CC-968F-97C524DAE3C4.html  问题描述：一个农夫养了一头牛，三年后，这头牛每年会生出1头牛，生出来的牛三年后，又可以每年生出一头牛……问农夫10年后有多少头牛?n年呢？用Perl实现：   my $count = 1;sub feedC