Given an array full of data which need to be output as a CSV...

return join(',',map{defined$_?s/"/''/g+1?/,/?"\"$_\"":$_:0:''}@{$ar})."\n";

Roger

Reply via email to