• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

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

原作者: [db:作者] 来自: [db:来源] 收藏 邀请


#!/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=duration=now-then;my@units=then; my @units=duration->in_units( qw(years months days) );
if(now<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
#(留意大小写!)


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
perl-sdl游戏过程发布时间:2022-07-22
下一篇:
常用perl脚本工具发布时间:2022-07-22
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap