Help for this page

Select Code to Download


  1. or download this
    Thu Dec 17 15:55:52 2009
  2. or download this
    Thu Dec 17 2009
  3. or download this
    my $now = localtime;
my @t = split /\s+/, $now;
splice @t, 3, 1;
$now = join ' ', @t;
  4. or download this
    my $now = localtime;
$now =~ s/(\d\d:){2}\d\d//;
$now =~ s/\s{2,}/ /;
  5. or download this
    real    0m2.700s
user    0m2.698s
sys     0m0.002s
  6. or download this
    real    0m4.576s
user    0m4.573s
sys     0m0.002s