[Summary view] [Print] [Text view]

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