Here is what
ls -l returns for one of my files:
-rw-r--r-- 1 jeffp dialup 1233 Jul 30 18:30 resume.txt
Breaking that into pieces, we have:
- file type and permissions
- number of links to file
- owner of file
- group of owner of file
- size in bytes
- last modified date
- name of file
All these -- except for the filename, which you already have -- can be extracted from
stat():
use POSIX 'strftime';
my ($perm, $links, $uid, $gid, $size, $lmod) =
(stat $file)[2,3,4,5,7,9]
my $user = getpwuid($uid);
my $group = getgrgid($gid);
my $date = strftime("%b %e %R", localtime($lmod));
You actually need to modify that a tiny bit, in case the file was modified more than a year ago; but that's an academic exercise.
_____________________________________________________
Jeff[japhy]Pinyan:
Perl,
regex,
and perl
hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;
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: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.