寒假【perl语言学习脚本】11.1 11.2

#!/usr/bin/perl -w
use Module::CoreList;
my %modules = %{ $Module::CoreList::version{5.014}};
print join “\n”,keys %modules;

#安装Module::CoreList模块，建立一个哈希，其键为指定perl版本自带模块的名称
#这里用了哈希引用

#!/usr/bin/perl -w
use DateTime;
use Time::Piece;
my $t = localtime;
my $now=DateTime->new( #‘- >'符号是“插入式解引用操作符”（infix dereference operator）。换句话说，它是调用由引用传递参数的子程序的方法
year => $t->year,
month => $t->mon,
day => $t->mday,
);
my $then=DateTime->new( #‘- >'符号是“插入式解引用操作符”（infix dereference operator）。换句话说，它是调用由引用传递参数的子程序的方法
year => $ARGV[0],
month => $ARGV[1],
day => $ARGV[2],
);
my $duration=$now-$then;my@units=$duration->in_units( qw(years months days) );
if($now<$then){
die “You entered a date in the future!\n”;
}#检查你键入的日期是否已经过去，否则日期相减得到的间隔时间会是一个负数
printf “%d years,%d months,and %d days \n”,@units;

#请教关于activeperl和Strawberry perl模块安装
#假设你想安装的模块叫: Module::You::Want
#Activeperl , 可以按 [Win]+[R], 执行 “PPM” ,
#这会打开 perl package manager 的 GUI (图形界面),
#也可以在到 cmd 里, 执行 :
#ppm install Module::You::Want
#也可以在到 cmd 里, 执行 :
#cpan Module::You::Want
#(留意大小写!)
#Strawberry Perl 则没有 ppm , 所以只能用 CPAN, 方法同上面一样
#不过, 在第一次执行 CPAN 前, 最好先确定在用的 CPAN 是最新版本, 所以, 无论是 ActivePerl 还是 Strawberry Perl , 如果要用 CPAN 来装楔块, 建议先执行一次.
#cpan CPAN
#(留意大小写!)