CSVファイルを読み込んでCSVファイルに書き込む

Question

use Text::CSV; 
$csv = Text::CSV->new; 
open(HIGH, "+>Hardtest.csv") || die "Cannot open ticket $!\n"; #reads the high file 
while(<HIGH>) 
{ 
    print "Printing High Priority Tickets ...\n"; 
    sleep(1); 
    print <HIGH>; 
} 
close(HIGH); 

ここに私のコードがありますが、私はCSVファイルを読み込もうとしていますが、CSVファイルを読むことはできません。

Answer 1

OK、多くのものがここにあります。

1. 常にuse strictとuse warningsです。
2. CSVファイル書き込みモードを開いています（追加モード？）。あなたがそれを読んでいるなら、それをしないでください。
3. || dieを使用しないでください。or dieを使用してください。
4. 最後に、の代わりにprint <HIGH>を使用しないでください。

Answer 2

私はあなたのコードを少し変更した：

#!/usr/bin/perl -w 
use strict; 
use Text::CSV; 

my $csv = Text::CSV->new; 
open(HIGH, "+<Hardtest.csv") || die "Cannot open ticket $!\n"; #reads the high file 
while(<HIGH>) 
{ 
    print "Printing High Priority Tickets ...\n"; 
    print $_; 
    sleep(1); 
} 
print HIGH "9,10,11,12\n"; 
close(HIGH); 

私に説明してみましょう： 1.「+>」読み取り/書き込みモードでファイルを開きます、しかし、また、既存のファイルを上書きします。したがって、あなたのコードではwhileループは決して入力されません。私はそれを "+ <"に変更しました。これは追記モードでの読み書きを意味します。 2. 2番目の最後の文は、上記のコードでは、新しいコンテンツをCSVファイルに追加します。