Beginner's Technology

stat

• ikepon
• 2006年02月08日
• コメントする
• トラックバックする
• カテゴリー:Perl

stat関数に関して説明します。
stat (ファイル名)
引数で指定されたファイル情報を返します。
返される配列は次の様になります。

[0]････デバイス番号を表す。
[1]････iノードを表す。
[2]････ファイルの権限を表す。
[3]････ハードリンクの数を表す。
[4]････ユーザIDを表す。
[5]････グループIDを表す。
[6]････デバイスの識別子を表す。
[7]････ファイルサイズを表す。
[8]････最終アクセス日を表す。
[9]････最終更新日を表す。
[10]･･･ブロック数を表す。
[11]･･･ブロックの数を表す。

次のファイルをsample161.plという名前で保存します。

($device, $inode, $mode, $nlink,
 $userid, $groupid, $rdev, $size,
 $accesstime, $modifytime, $changetime,
 $blocksize, $blockcount) = stat("sample161.pl");

printf("デバイス         %d\n", $device);
printf("Iノード          %d\n", $inode);
printf("モード           %o\n", $mode);
printf("リンク           %d\n", $nlink);
printf("ユーザID         %d\n", $userid);
printf("グループID       %d\n", $groupid);
printf("デバイス識別子   %d\n", $rdev);
printf("サイズ           %d\n", $size);
printf("アクセス時間     %d\n", $accesstime);
printf("更新日           %d\n", $modifytime);
printf("Iノード変更時間  %d\n", $changetime);
printf("ブロックサイズ   %d\n", $blocksize);
printf("ブロック数       %d\n", $blockcount);

実行結果は、次の様になります。

> perl sample161.pl
デバイス         1043
Iノード          494787
モード           100644
リンク           1
ユーザID         1001
グループID       1001
デバイス識別子   1981727
サイズ           717
アクセス時間     1138667471
更新日           1138667470
Iノード変更時間  1138667470
ブロックサイズ   16384
ブロック数       4