perl取文件大小

my @args = stat ($filename);

my $size = $args[7];

stat()函數返回一個數組。下面是數組各元素的含義。
0 dev 設備號 驅動器號（C：一般是2，D：一般是3，等等）
1 ino 索引節號 老是0
2 mode 文件的方式 無
3 nlink 連接號 一般爲0；Windows NT；文件系統容許連接
4 uid 文件全部者的用戶ID（UID）老是0
5 gid 文件全部者的組ID（GID）老是0
6 rdev 特殊文件信息 驅動器號（重複）
7 size 文件大小（以字節計）文件大小（以字節計）
8 atime 上次訪問的時間 上次訪問的時間
9 mtime 上次修改的時間 上次修改的時間
10 ctime Inode修改時間 文件的建立時間
11 blksz 磁盤塊的大小 老是0
12 blocks 文件中的塊的數量 老是0

例:獲取文件時間

my @array = stat("mysql.tar.gz");

print "$array[9]/n";

$size=(stat)[7]
$size=(stat filename)[7]

perl中的文件測試參數

-r 文件或是目錄對該（有效）用戶或組可讀
-w 文件或是目錄對該（有效）用戶或組可寫
-x 文件或是目錄對該（有效）用戶或組可
-o 文件或是目錄被該（有效）用戶全部

-R 文件或目錄對該實際用戶或組可讀
-W 文件或目錄對該實際用戶或組可寫
-X 文件或目錄對該實際用戶或組可執行
-O 文件或目錄被該實際用戶全部

-e 文件或目錄存在
-z 文件存在，大小爲零，判斷文件是否大小爲零（對目錄總爲假）
-s 文件存在，大小非零（即，文件大小，單位爲字節）

-f 條目是個普通文件
-d 條目是個普通目錄
-l 條目是個符號鏈接
-S 條目是個套接字
-p 條目是個命名管道（一個fifo）
-b 條目是個特殊(block-special)文件（如一個可裝載磁盤）
-c 條目是個字符特殊(character-special)文件（如一個I/O設備）

-u 文件或目錄是setuid
-g 文件或目錄是setgid
-k 文件或目錄的粘着位(sticky bit)被設置

-t 文件句柄是個TTY（可由isatty()系統函數返回；文件名不能由本測試來測試）

-T 文件像是個「文本」文件
-B 文件像是個「二進制」文件

-M 更改年齡（單位：天） -A 訪問年齡（單位：天） -C Inode更改年齡（單位：天）