开发者

How do I truncate, create, write, and move around in a file in Perl?

Is it possible to do these things in Perl?

  • truncate a file if already exists, a开发者_如何学Cnd
  • create,and
  • write, and
  • moving the cursor to end for append


Use the ">" mode for 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";


yes see seek,

seek FILEHANDLE,POSITION,WHENCE

Sets FILEHANDLE's position, just like the fseek call of stdio . FILEHANDLE may be an expression whose value gives the name of the filehandle. The values for WHENCE are 0 to set the new position in bytes to POSITION, 1 to set it to the current position plus POSITION, and 2 to set it to EOF plus POSITION (typically negative). For WHENCE you may use the constants SEEK_SET , SEEK_CUR , and SEEK_END (start of the file, current position, end of the file) from the Fcntl module. Returns 1 on success, 0 otherwise.


It's all in perlfunc. Perl mostly uses the same stuff that C has.

  • open opens files in various ways.
  • truncate truncates files.
  • seek moves around in files.
0

上一篇:

下一篇:

精彩评论

暂无评论...
验证码 换一张
取 消

最新问答

问答排行榜