Help for this page

Select Code to Download


  1. or download this
    my @weekdays = qw(
Today
...
Saturday
Sunday
);
  2. or download this
    my ($local_weekday, $local_month, $local_numerical_date) = split (/\s+
+/, scalar localtime), 3;

__END__
Fri Apr 28
'Yesterday' would be '27'