perl 实现cal功能

leng

#!/usr/bin/perl -w
use strict;
use Date::Calc;
use Calendar::Calendar qw(calendar);
use Term::ANSIColor::Print;
my ($year, $month, $day) = split(/\//, shift);
my $cal = calendar($month, $year);
my $string = Term::ANSIColor::Print->new(output => 'return', eol => '', );
my $new_day = $string->on_red($day);
my @array = split(/\n/, $cal);
my $head = shift @array;
print "    $head";
map{
if( /\D($day)\D/)
{
$_ =~ s/$1/$new_day/;
}
print "$_\n"
}@array;
#if( $cal =~ /\D($day)\D/ )
#{
#    $cal =~ s/$1/$new_day/;
#}
#
#print $cal."\n\n";
exit 0;