home *** CD-ROM | disk | FTP | other *** search
/ ftp.cse.unsw.edu.au / 2014.06.ftp.cse.unsw.edu.au.tar / ftp.cse.unsw.edu.au / pub / doc / languages / perl / nutshell / ch4 / stat < prev    next >
Encoding:
Text File  |  1992-10-18  |  198 b   |  8 lines
  1. ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
  2.     $atime,$mtime,$ctime,$blksize,$blocks)
  3.         = stat($filename);
  4.  
  5. if (-x $file && (($d) = stat(_)) && $d < 0) {
  6.     print "$file is executable NFS file\n";
  7. }
  8.