perl truncate()函数

perl truncate()函数例子，truncate()函数实例代码 - 截断（减少）FILEHANDLE到指定的长度（以字节为单位）指定的文件的大小。

语法

truncate FILEHANDLE, LENGTH

定义和用法

截断（减少）FILEHANDLE到指定的长度（以字节为单位）指定的文件的大小。如果您的系统上未实现的功能，会产生一个致命的错误。

返回值

• undef - 如果操作失败

• 1 - 成功

例子

下面的例子将截断零长度文件“test.txt”。

#!/usr/bin/perl -w
#by www.gitbook.net
open( FILE, "</tmp/test.txt" ) || die "Enable to open test file";

truncate( FILE, 0 );

close(FILE);