@sta[8] should be $sta[8] which would have been pointed out to you if you had use warnings;. You should also use strict;.

Since you used File::stat, perl's built-in stat function which returns an array has been replaced by a version that returns a blessed reference to an array. You can use this to access the elements of the array by name instead of by index. You could still use the array but you have to dereference first.

Using File::stat

use warnings;
use strict;
use File::stat;
my $sta  = stat($_);
my @date = localtime($sta->atime);
printf("%d-%d-%d\n",$date[4]+1,$date[3],$date[5]+1900);

[download]

or without

use warnings;
use strict;
my @sta = stat($_);
my @date = localtime($sta[8]);
printf("%d-%d-%d\n",$date[4]+1,$date[3],$date[5]+1900);

[download]

Update: After re-reading your post, I notice that you wanted modification time, not last access time. For that, use mtime instead of atime or offset 9 instead of offset 8.

---
print map { my ($m)=1<<hex($_)&11?' ':'';
$m.=substr('AHJPacehklnorstu',hex($_),1) }
split //,'2fde0abe76c36c914586c';

[download]

In reply to Re: win32 getting file modified details by pfaut
in thread win32 getting file modified details by rwallis

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.