能否只open一次，讀寫文件？

yashiro_lj

如題，能否只open文件一次，做到讀寫該文件？

yashiro_lj

不是在文件末尾附加內容，而是要修改文件本身的內容之后再寫入，有沒有只open一次辦法？

MMMIX

原帖由 yashiro_lj 于 2009-5-16 14:54 發(fā)表
不是在文件末尾附加內容，而是要修改文件本身的內容之后再寫入，有沒有只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 ：）