ファイルの更新日時を1行で取得する(Perl)


ファイルの更新日時を1行で取得するPerlコードの紹介。

Perl コード

$upd_epoch = (stat($file))[9];

解説

Perl の組み込み関数 stat はファイルまたはファイルハンドルを引数にして、ファイルに関する情報を配列で返す。
返り値全体をカッコでくくって配列として扱い、添え字を付ければ欲しい情報だけを取得できる。

その他の良く使うフィールド

$uid = (stat($file))[4]; #所有者のユーザID
$gid = (stat($file))[5]; #所有者のグループID

ファイルサイズだけだったら、テスト演算子の方が簡単。
$size = -s $file;