#!/usr/bin/perl
$filename = "some-file-name";
@fileinfo = stat($filename);
for ($i=0;$i<12;$i )
{
print "$fileinfo[$i]\n";
}
where:-
i Value
--- -------
0 dev device number of filesystem
1 ino inode number
2 mode file mode (type and permissions)
3 nlink number of (hard) links to the file
4 uid numeric user ID of file's owner
5 gid numeric group ID of file's owner
6 rdev the device identifier (special files only)
7 size total size of file, in bytes
8 atime last access time since the epoch
9 mtime last modify time since the epoch
10 ctime inode change time (NOT creation time!) since the epoch
11 blksize preferred block size for file system I/O
12 blocks actual number of blocks allocated
Last updated on (yyyy-mm-dd): 2008-01-16