Calendar::Simpleと Text::ASCIITableを使って書いてみた。。 プログラム #!/usr/bin/env perl use strict; use warnings; use Calendar::Simple; use Text::ASCIITable; my ($this_mon, $this_year) = (localtime)[4,5]; my $month = shift || ($this_mon +…