能否只open一次，读写文件？

yashiro_lj

如题，能否只open文件一次，做到读写该文件？

yashiro_lj

不是在文件末尾附加内容，而是要修改文件本身的内容之后再写入，有没有只open一次办法？

MMMIX

原帖由 yashiro_lj 于 2009-5-16 14:54 发表
不是在文件末尾附加内容，而是要修改文件本身的内容之后再写入，有没有只open一次办法？

有。看看 seek/tell 的用法。

yashiro_lj

多谢MMMIX，我去看看seek/tell ：）

schnell18

我也遇到过类似问题，下面一段代码供你参考：

open (my $fh, "+<$area_status_file") &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;or die "Can't open $area_status_file due to!\n"; &nbsp;&nbsp;&nbsp;&nbsp;$area = undef; &nbsp;&nbsp;&nbsp;&nbsp;# synchronized access to the area file for multiple processes &nbsp;&nbsp;&nbsp;&nbsp;my @areas; &nbsp;&nbsp;&nbsp;&nbsp;while(<$fh>) { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;chomp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;push @areas, $_; &nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;for(my $i = 0; $i < scalar(@areas); $i ++ ) { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;($break, $area, $new_line) = $coderef->($areas[$i]); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;do { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$areas[$i] = $new_line; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;last; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} if $break; &nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;#reposition the pointer to start of file after copying &nbsp;&nbsp;&nbsp;&nbsp;seek($fh, 0, SEEK_SET); &nbsp;&nbsp;&nbsp;&nbsp;foreach my $line (@areas) { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print $fh "$line\n"; &nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;close $fh;

yashiro_lj

多谢schnell18 ：）