Scripting >> Perl >> How to get date information of files






     #!/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