#-------------------------------------------------------------
# CSV形式の $line から値を取り出して @values に入れる正規表現
#-------------------------------------------------------------
#（CSV形式の定義）
# ・「,」で区切った部分がスペースを含めて値である．
# ・値に「,」や「"」が含まれる場合は、値全体を「"」で囲む．
# ・値に含まれる「"」は「""」と２回記述となる．
【正規表現のマッチを利用してCSV形式文字列を分解し各要素を @values に格納】
1 {
2 my $tmp = $line;
3 $tmp =~ s/(?:\x0D\x0A[\x0D\x0A])?$/,/;
4 @values = map {/^"(.*)"$/ ? scalar($_ = $1, s/""/"/g, $_) : $_}
5 ($tmp =~ /("[^"]*(?:""[^"]*)*"[^,]*),/g);
6 }
2行目： 次の行で $line を変更するため、$line のコピーを $tmp に取る
3行目： 抽出処理を簡単にするため、最後の値の後ろにコンマを付加
$line の最後に改行コードがついていた場合、改行コードの削除
これで $line の中身は 値,値,値,・・・ の繰り返しになる
文末の0,1回の「\x0D\x0A」「\x0D」「\x0A」を「,」に置換
[正規表現] (?:abc) 後方参照不可のグループ化でメモリ節約
(hogehoge)? ()内に0or1回マッチ
4行目： 5行目で得られたリストの各要素に対する処理
# A ? B : C は、Aが真であればBを、偽であればCを値とします
# map例 @array2 = map { $_ + 10 } @array1; #全てに10を足した
# scalar例 $aaa = "111abc222";
# print scalar($_ = $aaa, s/abc/efg/g, $_); # 111efg222 が返る
# scalar関数は、()内の3命令を行った結果を返す（はじめて知った機能）
5行目： $tmpの中でマッチした文字列をすべて処理(4行目の map{ } が処理内容)
# $str ="a11nn44..55--aa";
# @w = ($tmp =~ /\d\d/g); # 正規表現でマッチしたすべての文字列を @w に格納
# map {print $_,"\n"} @w; # @w の各要素を改行つきで出力「11\n44\n55」
4,5行目の詳細解説
(1) 値,値,値, という形から個々の値を取り出すため修飾子 g をつけたパターンマッチを行う
（ 修飾子 g をつけたパターンマッチをリストコンテキストで受けると、
( )によるグループにマッチした部分文字列のリストを返す ）
パターン作成で注意が必要なのは，
「値,」、「 "値",」の 2種類があること
さらに「"値",」の方には、「,」、「""」が含まれている可能性があること
以下の場合ごとにパターンを作成し合成する
a.「値,」 の場合は、「,」が含まれないので、『/([^,]*),/』
b.「"値",」の場合は、値に「""」が含まれている可能性も考慮して
「[^"] 」と「""」の場合をあわせて、『/("(?:[^"]"")*"),/』
a,bを合成して、『 /("(?:[^"]"")*"[^,]*),/g 』 となる
実行速度向上のために最適化を行い
($tmp =~ /("[^"]*(?:""[^"]*)*"[^,]*),/g); となる
「詳説正規表現」で「ループ展開」として書かれている手法で最適化
(2) map{ } の中では、
「値」 の形ならそのまま格納
「"値"」の形ならば両側の「"」を削除し、「""」を「"」に変換して格納
