Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
#!/usr/bin/perl
use strict;
use warnings;
use Date::Calc;
my ($x,$month,$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$mon=$mon+1;
my $count=$mon+11;
for ($x=$mon;$x<=$count;$x++) {
if ($x>12) {
$month = $x-12;
} else {
$month = $x;
}
for ($month) {
if (/^1$/) { print "January\n" }
elsif (/2/) { print "February\n" }
elsif (/3/) { print "March\n" }
elsif (/4/) { print "April\n" }
elsif (/5/) { print "May\n" }
elsif (/6/) { print "June\n" }
elsif (/7/) { print "July\n" }
elsif (/8/) { print "August\n" }
elsif (/9/) { print "September\n" }
elsif (/^10$/) { print "October\n" }
elsif (/^11$/) { print "November\n" }
elsif (/^12$/) { print "December\n" }
else { print "Error\n" }
}
}
@moy = ("Jan", "Feb", "and so on") ;
($org_mon, $org_year) = (localtime(time))[4,5] ;
$org_year += 1900 ; # you'll get 110 otherwise.
for ($i=0,$i<12,$i++) {
$curr_mon = (($org_mon+$i) % 12) ;
$curr_year = ($curr_mon < $org_mon) ? ($org_year + 1) : $org_year ;
$curr_mon = $moy[$curr_mon] ;
print "$curr_mon, $curr_year\n"
}