use strict;
use warnings;
use HTML::CalendarMonthDB;
my $cal = new HTML::CalendarMonthDB();
$cal->width('50%');
$cal->border(10);
print $cal->as_HTML;
And also see How do I post a question effectively? and How (Not) To Ask A Question
Try below, it will give you date with hyperlink.
use strict;
use warnings;
use HTML::CalendarMonth;
use HTML::AsSubs;
my $month = 10;
my $year = 2006;
my $cal = HTML::CalendarMonth->new( month => $month, year => $yea
+r );
$cal->item($cal->year, $cal->month)->attr(bgcolor => 'wheat');
$cal->item($cal->year, $cal->month)->wrap_content(font({size => '
++2'}));
my @days = $cal->days;
for (@days){
$cal->item($_)->wrap_content(a({href => 'http://mysite/cal/index'
+.$year.$month. $_ .".html"}));
}
print $cal->as_HTML;
Updated
Regards, Velusamy R. eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';
|