摘要:
#!/usr/bin/perl -wuse 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 = 阅读全文