| 1 | ;# $RCSfile: stat.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:13 $ |
| 2 | |
| 3 | ;# Usage: |
| 4 | ;# require 'stat.pl'; |
| 5 | ;# @ary = stat(foo); |
| 6 | ;# $st_dev = @ary[$ST_DEV]; |
| 7 | ;# |
| 8 | $ST_DEV = 0 + $[; |
| 9 | $ST_INO = 1 + $[; |
| 10 | $ST_MODE = 2 + $[; |
| 11 | $ST_NLINK = 3 + $[; |
| 12 | $ST_UID = 4 + $[; |
| 13 | $ST_GID = 5 + $[; |
| 14 | $ST_RDEV = 6 + $[; |
| 15 | $ST_SIZE = 7 + $[; |
| 16 | $ST_ATIME = 8 + $[; |
| 17 | $ST_MTIME = 9 + $[; |
| 18 | $ST_CTIME = 10 + $[; |
| 19 | $ST_BLKSIZE = 11 + $[; |
| 20 | $ST_BLOCKS = 12 + $[; |
| 21 | |
| 22 | ;# Usage: |
| 23 | ;# require 'stat.pl'; |
| 24 | ;# do Stat('foo'); # sets st_* as a side effect |
| 25 | ;# |
| 26 | sub Stat { |
| 27 | ($st_dev,$st_ino,$st_mode,$st_nlink,$st_uid,$st_gid,$st_rdev,$st_size, |
| 28 | $st_atime,$st_mtime,$st_ctime,$st_blksize,$st_blocks) = stat(shift(@_)); |
| 29 | } |
| 30 | |
| 31 | 1; |