Perl/CSV出力の変更点

追加された行はこの色です。
削除された行はこの色です。
Perl/CSV出力は削除されています。
Perl/CSV出力の差分を削除

* CSV出力 [#jf1fc5de]

 my $csv = Text::CSV_XS->new({binary=>1});
 while (my $row = @rows) {
    $csv->combine((
        $row->{name},
        $row->{address},
        $row->{tel},
    ));
    print $csv->string(),"\n";
 }