truncate

---

truncate FILEHANDLE, LENGTH
truncate EXPR, LENGTH

　FILEHANDELに紐付いているファイルまたはEXPRという名前のファイルをLENGTHで指定した長さに切り詰めます。

---

サンプルプログラム

use strict;
use warnings;
use POSIX;

my $filename = "last.txt";

my $msg = scalar(localtime);

open my $fh, "+<", $filename or die "$!:$filename";

flock $fh, 2; # ファイルをロックする
seek $fh, 0, SEEK_SET or die $!; # ファイルの先頭に移動

print $fh $msg;

truncate $fh, tell($fh) or die $!; # 残り部分を切り捨てる

close $fh;

---

関連項目

・close関数
・flock関数
・open関数
・tell関数