| 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; |
