CSV形式にすると。。。

質問

ファイルを読み込みCSVカンマ区切りのデータにするプログラムを作ったのですが、
ダブルクォーテーションを取得行の行末に付加した場合に文字化けを起こすケースがあり、「150」が「"15"」等のようになってしまいます。
　どなたか、分かる方がいましたらよろしくお願いします。

# ファイルのオープン
open ( FILEIN , "$FName") || die "ファイルを開けません :$!\n";
@line = <FILEIN>;
close (FILEIN);
foreach $line (@line){
##### 文字化け対策 #####
$line =~ s/ⅰ|ⅱ|ⅲ|ⅳ|ⅴ|ⅵ|ⅶ|ⅷ|ⅸ|ⅹ//g;

$line =~ s/\"/\"\"/g;
$line =~ s/\,\"\?/\"\,\"/g;
$line =~ s/\"\,\?/\"\,\"/g;
$line =~ s/\ |\　/\"\,\"/g;

# sjis --> euc コードへ変換
&jcode::sjis2euc(\$line,"z");
if (length $line > 1){
$cd_22 = chr(0x0022);
$line = "$cd_22$line";
$line =~ s/[^$1\n]$/\"/g;
}
}
open (FILEOUT, ">./log/$file") or die;
print FILEOUT @line;
close (FILEOUT);
}

回答No.1

leaz024 · ベストアンサー

直接の原因は
> $line =~ s/[^$1\n]$/\"/g;
ではないかと思います。
「$1」の値は「直前の正規表現で１番目のグループにマッチした文字列」ですが、このコードの中にグループ指定をした正規表現が見当たりません。

また、$1 を外したとしても、「\n 以外の末尾１文字」をダブルクォートに変換しようとしていますので、やはりうまくないような気がします。

元データの形式やCSV化の仕様などが分からないので、これ以上のアドバイスはちょっと難しいです。
もし解決できないようでしたら、その辺の補足をお願いします。

お礼

leaz024さん回答どうもありがとうございました。

leaz024さんの回答を参考にして何とか解決することができました。
確かに言われてみれば、という奴でした^^;
　具体的には、
> $line =~ s/\n$/\"/g;
という感じで最後の改行コードを置換するようにしました。

本当にどうもありがとうございました。