CSVファイルをperlプログラムで処理する場合

すみません、度々perl初心者のものです。
CSVファイルを１行ずつ読み込んで処理をしたい場合、
１項目内のデータの中に改行がある場合、
どのような方法で対処出来るでしょうか？

例えば

"aaa,bbb,ccc
ddd,eee,fff"

上記のようにcccとdddの間に改行が入ってるため
本当は１レコードのはずなのに２レコードとして
処理を行ってしまう。
perlで何かやり方はあるのでしょうか？
csvを加工するのもよいのですが、データが多量に
あるため、プログラム上でなんとかしたいと思うのですが。。。

すみません、宜しくお願い致します。

No.3 ベストアンサー 回答者： rafysta 回答日時： 2006/05/09 16:34

自分でしたら、まず、ダブルクォテーションで囲まれている改行コードを、すべて何かの文字に置換してしまいます。

その後は、普通のCSVと同様に処理をして、最後に置換した文字を改行コードに戻してやります。

my $file = 'data.csv';
open IN, '<', $file or die "cannot open $file : $!";
$/ = "";
my $data = <IN>;
close IN;

while($data =~ s/\"(.+)\n(.+)\"/$1<>$2/g){
}

# 後は普通のCSVとして処理（例）
foreach(split /\n/, $data){
my @data = split /,/;
map{ s/<>/\n/g } @data;
print "@data\n";
}

No.5 回答者： Tacosan 回答日時： 2006/05/09 17:21

$/ を undef にして全部読み込んでから /"(.*?)"/m するとか?

No.4 回答者： rafysta 回答日時： 2006/05/09 16:39

# No.3の訂正

while($data =~ s/\"(.+)\n(.+)\"/$1<>$2/g){
}
じゃなくて
while($data =~ s/\"(.+)\n(.+)\"/"$1<>$2"/g){
}

No.2 回答者： BLUEPIXY 回答日時： 2006/05/09 14:28

安易な方法で、必要なパターンを満たしているか自信がないですが、こんな感じでどうでしょう。

----------------------------------------------------------------
use encoding "Shift_JIS";
sub readCSVline($){
my $FH = shift ;
my $line = "";
my $count=0;
while(<$FH>){
$count += tr/\"/\"/;#" の数を数える
$line .= $_; #条件が成立するまで、行を拡張する
if($count % 2 == 0){ #偶数倍になっていたらマッチングしているとして読み込んだ行を返す
return $line;
}
}
}

open(IN, "<data.csv");
while($line = readCSVline(IN)){
#一行の処理
}
close(IN);

No.1 回答者： galluda 回答日時： 2006/05/09 13:54

がると申します。

ちと面倒な処理にはなるのですが。状態遷移プログラムが書けるのであれば(Perlで十分に記述は可能です)、処理は出来るかと。…いやまぁ状態遷移じゃなくても書けるのですが、状態遷移のほうが楽なので、程度なのですが。

googleあたりで「CSV 状態遷移」とかで調べたりすると色々と情報など出てくるかと思います。