Perlライブラリ無し縛り - 引用符内改行ありのCSVパース - Qiita

ダブルクォーテーションに囲まれた文字列中の改行、カンマを区切り文字として扱わない ライブラリは使わない。インタプリタの機能のみを使う &csvparse( sub{ <DATA> } , sub{ print map("[$_]",@{$_[0]}),"\n"; } ); sub csvparse{ my ($read,$callback)=@_; while( defined(my $line=$read->()) ){ for(;;){ $line =~ s/"([^"]+)"/"\a".unpack('h*',$1)."\a"/ge; last unless $line =~ /"/ && defined(my $next = $read->()); $line .= $next; } chomp $line; my @csv = split(/,/,$line); s/\a([^\