1、Perl 中每个包有一个单独的符号表,定义语法为:package mypack;
此语句定义一个名为 mypack 的包,在此后定义的所有变量和子程序的名字都存贮在该包关联的符号表中,直到遇到另一个package 语句为止。
每个符号表有其自己的一组变量、子程序名,各组名字是不相关的,因此可以在不同的包中使用相同的变量名,而代表的是不同的变量。
从一个包中访问另外一个包的变量,可通过" 包名 + 双冒号( :: ) + 变量名 " 的方式指定。
存贮变量和子程序的名字的默认符号表是与名为 main的包相关联的。如果在程序里定义了其它的包,当你想切换回去使用默认的符号表,可以重新指定main包
perl -le 'print __PACKAGE__';
2、、查找perl 安装模块的
转载:http://www.cnblogs.com/nkwy2012/p/6016247.html
find `perl -le 'print "@INC"'` -name *.pm
find `perl -e 'print join " ",@INC'` -name *.pm
locate *.pm
单体验证: perl -MMail::Sender -e ‘’ #安装没东西输出
群体验证
#!/usr/bin/perl
use strict;
use ExtUtils::Installed;my $inst = ExtUtils::Installed->new();
my @modules = $inst->modules();
foreach (@modules) {
my $ver = $inst->version($_) || "???";
printf("%-22s -Version- %-22s ", $_, $ver);
}
exit;