Help for this page

Select Code to Download


  1. or download this
        my $date_as_YYYY_MM_DD = do {
        my @d = localtime;
        sprintf "%04d-%02d-%02d", $d[5] + 1900, ++$d[4], $d[3];
        };
  2. or download this
    use POSIX qw( strftime );
my $d_YMD = POSIX::strftime ("%Y-%m-%d", localtime);
my $d_Md  = POSIX::strftime ("%d %b", localtime); # I prefer 04 Sep ov
+er Sep 04