perl附加問題

Question

我有一些代碼附加到嵌套for循環中的某些文件。退出for循環後，我想將.end追加到所有文件。

foreach my $file (@SPICE_FILES) 
{ 
    open(FILE1, ">>$file") or die "[ERROR $0] cannot append to file : $file\n"; 
    print FILE1 "\n.end\n"; 
    close FILE1; 
} 

我注意到在一些奇怪的情況下，「.end」被附加到文件的中間！

我該如何解決這個問題？

Answer 1

由於我還沒有評論 - 特權，我必須將其寫爲'答案'。

你使用任何可怕的模塊？

我遇到了問題，很明顯，perl模塊已經完成了到輸出緩衝。對我來說

$| = 1; 

在代碼中有幫助。上面的語句關閉了perls輸出緩衝（AFAIK）。它可能也有其他影響，但我沒有看到任何消極影響。

Answer 2

這是不可能追加到文件的中間的東西。 O_APPEND標誌保證每個寫入（2）系統調用將把它的內容放在舊的EOF中並通過增加它來更新st_size字段，不管你剛剛寫了多少字節。

因此，如果您發現自己的數據在最後看不到時會顯示出來，那麼另一個代理會在後面寫入更多數據。

Answer 3

我想你已經在一些以前打開的文件描述符中緩衝了數據。嘗試重新打開之前關閉它們：

open my $fd, ">>", $file or die "Can't open $file: $!"; 
print $fd, $data; 
close $fd or die "Can't close: $!"; 

更重要的是，你可以添加這些filehanles到一個數組/哈希和寫入他們在清理：

push @handles, $fd; 
# later 
print $_ "\n.end\n" for @handles; 

這裏重現「不可能的情況下， 「追加在中間：

#!/usr/bin/perl -w 
use strict; 

my $file = "file"; 

open my $fd, ">>", $file; 
print $fd "begin"; # no \n -- write buffered 

open my $fd2, ">>", $file; 
print $fd2 "\nend\n"; 
close $fd2; # file flushed on close 

# program ends here -- $fd finally closed 
# you're left with "end\nbegin"