Perlについての質問箱 30箱目

Perlについての質問箱 ..

127:デフォルトの名無しさん
07/03/28 11:54:00
>>126
下記（*）の$_の手前にあるヤツなんですが・・

# CSV形式の $line から値を取り出して @values に入れる
{
my $tmp = $line;
$tmp =~ s/(?:\x0D\x0A|[\x0D\x0A])?$/,/;
@values = map {/^"(.*)"$/ ? scalar($_ = $1, s/""/"/g, $_) : $_}　…（*）
($tmp =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g);
}
Perlメモ
URLﾘﾝｸ(www.din.or.jp)

次ページ