ファイルの更新日時を1行で取得するPerlコードの紹介。
Perl コード
$upd_epoch = (stat($file))[9];
解説
Perl の組み込み関数 stat はファイルまたはファイルハンドルを引数にして、ファイルに関する情報を配列で返す。
返り値全体をカッコでくくって配列として扱い、添え字を付ければ欲しい情報だけを取得できる。
その他の良く使うフィールド
$uid = (stat($file))[4]; #所有者のユーザID
$gid = (stat($file))[5]; #所有者のグループID
ファイルサイズだけだったら、テスト演算子の方が簡単。
$size = -s $file;