Help for this page

Select Code to Download


  1. or download this
    use POSIX 'strftime';

print strftime ('%I:%M:%S %p - %a, %B %d, %Y', localtime (time)) . "\n
+";
  2. or download this
    use POSIX 'strftime';

my $format = '%I:%M:%S %p - %a, %B %d, %Y' . "\n";
my @time   = localtime (time);
print strftime ($format, @time);