ファイルの読み取りと書き込みの両方を行います。

Question

私はperlを使い慣れていて、perlのcsvファイルを読み書きしようとしています。しかし、問題はどこにあるのかわからないことがあります。私は '<'を使用しても問題なく読むことができますが、書き込めません。 +>>モードでファイルを開く

は

use strict; 
use warnings; 
use Text::CSV_XS; 

my $file = 'file.csv';  
my $csv = Text::CSV_XS->new(); 

open (InCSV, '+>>', $file) or die $!; 
while (<InCSV>) { 
    if ($csv->parse($_)) { 
     my @columns = $csv->fields(); 
     if($columns[1] eq "01") { 
       my $str = "Selected $columns[6] \n "; 
       push(@columns,$str); 

       print InCSV join("," , @columns), "\n"; 
     }     
    } else { 
     my $err = $csv->error_input; 
     print "Failed to parse line: $err"; 
    } 
} 
close InCSV; 

Answer 1

ファイルの末尾に努めてまいりますので、あなたseekない限り、バックファイルの先頭（または中央）に読み出さには何も存在しません。ファイルの先頭にあるファイルカーソルを読み取り/書き込みモードで開くには、+<モードを使用します。

つまり、おそらくこの問題に対するあなたのアプローチを再考したいと思うでしょう。データの行を読み込んで変更し、ファイルに書き戻そうとしているようです。しかし、あなたがやったやり方では、読み込んだ行ではなく次の行を上書きしています。とにかく新しいデータは古いデータよりも長くなります（バイト数が増えます）。これは確実にあなたのデータファイルを破壊することです。

いくつかのより良いアプローチは、

• 読み取りおよびプロセスのすべてのデータを最初に、そして近くになると、あなたがそれを処理している間、一時ファイルに処理されたデータで

• 書き込みデータを入力が上書きされることがあります入力を一時ファイルで上書きします（perlインタプリタのin-place editing modeも参照してください）

• Tie::Fileのようなモジュールを使用して、行ベースのI/Oを処理します。このタスク