[perl]代码库
#!/usr/bin/perl
use strict;
use Date::Calc qw(Calendar Today);
my $year = "2003";
my $month = "6";
my $day;
my $cal = Calendar($year, $month);
(undef, undef, $day) = Today();
$cal =~ s/$day/e[5me[31m$daye[0m/;
print $cal;
exit 0;
本例子打印出一个2003年6月份的日历，当天日期用红色的闪烁数字表示。
Date::Calc提供了时间日期计算的另一种方式（一种是Date::Manip），
大量简单方便的方法（函数）供使用者调用。
在例子中的年和月我是自己指定的，也可以
($year, $month, $day) = Today();
颜色和闪烁是用ANSI escape sequences。
详细说明尽在ANSIColor.pm source和perldoc Term::ANSIColor里。
（perldoc Term::ANSIColor其实也在ANSIColor.pm source里） ：）
会python真的可以为所欲为0(回)
249天前
这里还有人吗1(回)
434天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
659天前
鸽子
0(回)
743天前
by: 发表于：2017-09-12 14:53:28 顶(0) | 踩(0) 回复
？？
回复评论