如何在Perl中截斷，創建，寫入和移動文件？

Question

在Perl中可以做到這些嗎？

• 截斷一個文件，如果已經存在，並且
• 創建和
• 寫，並
• 將光標移動到結束對追加

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

yes se Ë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在文件中移動。