Help for this page

Select Code to Download


  1. or download this
    my ($cretime) = eval { stat("$SPOOL/$file")->ctime }
   or next;

push @files, [ $cretime, $file ];
  2. or download this
    my $stat = stat("$SPOOL/$file")
   or next;

push @files, [ $stat->ctime, $file ];
  3. or download this
    $ perl -MFile::stat -le'print "".localtime( stat("a")->ctime )'
Wed Jul 29 12:13:21 2009
...

$ perl -MFile::stat -le'print "".localtime( stat("a")->ctime )'
Wed Jul 29 12:13:46 2009