Help for this page

Select Code to Download

Select or download this

sub csv_join(\@) {
 join ',', map {s/"/""/g || /[\s,]/ ? qq{"$_"} : $_} (my @x=@{$_[0]});
}

Select or download this

sub csv_join {
  join ',', map { s/"/""/g || /[\s,]/ ? qq{"$_"} : $_} (my @x=@_);
}