如何在Perl中的文件中截断，创建，写入和移动？

Question

是否可以在Perl中执行这些操作？

• 截断文件（如果已存在）和
• 创建，和
• 写，
• 将光标移动到end以进行追加

Answer 1

使用open的">"模式：

# the file is truncated and opened for output, being created if necessary.
open my $fh, '>', "file" or die $!;

# output to the file
print $fh "Line1\n";
print $fh "Line2\n";

Answer 2

是的，请参阅seek，

seek FILEHANDLE,POSITION,WHENCE

设置FILEHANDLE的位置，就像stdio的fseek调用一样。 FILEHANDLE可以是一个表达式，其值给出文件句柄的名称。 WHENCE的值为0，将新位置设置为POSITION，将1设置为当前位置加POSITION，将2设置为EOF加POSITION（通常为负）。对于WHENCE，您可以使用来自Fcntl模块的常量SEEK_SET，SEEK_CUR和SEEK_END（文件的开头，当前位置，文件末尾）。成功时返回1，否则返回0.

Answer 3

全部在perlfunc。 Perl主要使用与C相同的东西。

• open以各种方式打开文件。
• truncate截断文件。
• seek在文件中移动。