Help for this page

Select Code to Download


  1. or download this
    open my $io, "<", "test.csv";
    open my $oh, ">", "out.csv";
    ...
        s{ ("[^""]+") }{ (my $one = $1) =~ tr{,}{-}; $one =~ tr{""}{}d; $o
    +ne; }xge;
        print $oh $_;
        }