Rev | Line | |
---|
[14489] | 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;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.