如何使用Perl清空文件

2016年10月26日 by David Farrell

你是否有过长时间以某种方式做某事，然后发现一种更好的方法？上周我就是这样，当时我正在处理一些需要清空文件的代码。清空文件是一个常见的操作——也许你有一个会写入的会话日志文件，或者想要限制磁盘空间使用，或者任何其他事情。这就是我通常的做法

# empty the file
{ open my $session_file, '>', 'path/to/sessionfile' }

这会在文件上打开一个写文件句柄，实际上将其长度设置为零。我把对open的调用放在大括号之间，以便最小化文件句柄$session_file的作用域。在这条语句之后，块关闭，$session_file变量超出作用域，文件句柄会自动关闭。由于块看起来有点奇怪，我包含了一个解释性注释。

然而，前几天我遇到了truncate函数。这个函数正是你所想的：截断文件。它接受两个参数：文件路径（或文件句柄）和长度。所以，如果你需要截断一个文件，你可以这样做

truncate 'path/to/sessionfile', 0;

这个例子没有使用词法变量，所以不需要作用域。它是不含糊的，因此也不需要注释。我喜欢它，这是一个更好的方法。

注意。在Windows上，truncate要求文件系统上没有其他地方打开该文件，并且如果使用文件句柄调用，它必须处于追加模式。

查找Perl函数

你知道Perl大约有220个内置函数吗？你可以在perlfunc中了解它们，或者通过终端使用perldoc perlfunc。在终端使用perldoc -f truncate了解更多关于truncate函数的信息。

Vim用户如果你正在编辑Perl代码并想要查找一个函数，请将光标放在函数词上，并输入Shift-k来在perldoc中查找函数（也适用于Python、Ruby、C等）。

这篇文章最初发布在PerlTricks.com上。