Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
    splice @fields, 3, 0, ($dField, $eField);
    $csv->say(*STDOUT, \@fields);
}

Select or download this

a1,b,c,"D,1; D,2","E1; E2",f,g
a2,b,c,"D,1; D,2",E3,f,g