perl stat()函數

perl stat()函數例子，stat()函數實例代碼 - 返回一個13個元素的數組給指定的文件，無論是FILEHANDLE，EXPR，或$_的狀態信息。

語法

stat FILEHANDLE stat EXPR stat

定義和用法

返回一個13個元素的數組給指定的文件，無論是FILEHANDLE，EXPR，或$_的狀態信息。返回的值列表顯示在下麵的表中。如果在標量上下文中使用，失敗則返回0，成功返回1。請注意，這些元素是支持係統的依賴。檢查文件的完整列表。

Element Description 0 	Device number of file system
1 	Inode number
2 	File mode (type and permissions)
3 	Number of (hard) links to the file
4 	Numeric user ID of file.s owner
5 	Numeric group ID of file.s owner
6 	The device identifier (special files only)
7 	File size, in bytes
8 	Last access time since the epoch
9 	Last modify time since the epoch
10 	Inode change time (not creation time!) since the epoch
11 	Preferred block size for file system I/O
12	Actual number of blocks allocated

返回值

• 數組, ($device, $inode, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks)

例子

試試下麵的例子：

#!/usr/bin/perl -w

($device, $inode, $mode, $nlink, $uid, $gid, $rdev, $size,
    $atime, $mtime, $ctime, $blksize, $blocks) =
      stat("/etc/passwd");

print("stat() $device, $inode, $ctime\n");

在我的機器上會產生以下結果：

stat() 147, 20212116, 1177094582