刚刚看完小骆驼,学到模块这章想查询内置的模块倒腾了许久,最后发现竟然是章节后的练习题.......改进了一下,因安装了比较新的版本,所以按version分开查询,同时统计了数量,
#!/usr/bin/perl -w
use Module::CoreList;
my %modules8 = %{ $Module::CoreList::version{5.008} };
my %modules12 = %{ $Module::CoreList::version{5.012} };
my $length8 = keys %modules8;
my $length12 = keys %modules12;
print join "/n",keys %modules8;
print "/n5.08版本已经安装的模块数量是:$length8 /n要继续吗?(输入quit退出,任意键继续显示5.12版本内置模块列表):/n";
my $goon = <>;
chomp $goon;
if ($goon eq "quit") {
print "that's the end of 5.008 modules's lists /n";
}
else {
print join "/n",keys %modules12;
print "/n5.12版本已经安装的模块数量是:$length12 /n";
}