Mike Reilley wrote:
> 
> Hi PERL MASTERS
> 
> I am using the stat function to obtain the modification date of a file?
> 
>  my $m =  (stat $f)[9];
> 
> How do I convert $m so as to be able to display it as mm/dd/yy hh:mm:ss

localtime and (s)printf.

my @t = localtime;
my $date = sprintf "%02u/%02u/%02u %02u:%02u:%02u", $t[4] + 1, $t[3], 
  $t[5] % 100, $t[2], $t[1], $t[0];
print $date, "\n";

-- 
  ,-/-  __      _  _         $Bill Luebkert   ICQ=14439852
 (_/   /  )    // //       DBE Collectibles   http://www.wgn.net/~dbe/
  / ) /--<  o // //      Mailto:[EMAIL PROTECTED]   http://dbecoll.webjump.com/
-/-' /___/_<_</_</_    http://www.freeyellow.com/members/dbecoll/

---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
         [EMAIL PROTECTED]
For non-automated Mailing List support, send email to  
         [EMAIL PROTECTED]

Reply via email to