Perl 最終レコード取得

メモ

固定長レコードの場合はファイル終端からレコード長分引いた位置から読み込めば良い。
サンプルはレコード長が 24 バイトのレコードセットから最終レコードを読み込む。

ソース

use open ':std';

# 参照ファイル
$file = "hoge.txt";

# 最終行取得
open(I, "< $file");     # ファイルを開く
binmode(I);             # バイナリモード
seek(I, -24, 2);        # ファイル終端から 24 バイト引いた位置に移動
sysread(I, $buf, 24);   # 現在位置から 24 バイト読み込み
close(I);               # ファイルを閉じる

1;

  • 最終更新:2013-12-24 15:08:18

このWIKIを編集するにはパスワード入力が必要です

認証パスワード