Help for this page

Select Code to Download


  1. or download this
    my @wday = qw/Monday Tuesday Wednesday Thursday Friday Saturday Sunday
+/;
printf "Today is %s.\n", $wday[ (localtime(time))[6] - 1 ];
  2. or download this
    my @date = split(" ", localtime(time));
my $day = $date[0]; 
my %days = ();
  3. or download this
    my %days = map { substr($_,0,3) => $_ } 
    qw/Monday Tuesday Wednesday Thursday Friday Saturday Sunday/;