Code: Select all
print FILE join(',', map{"'$cg->param($_)'"} qw(comment name emailaddress) );
Code: Select all
print FILE join(',', map{"'$cg->param($_)'"} qw(comment name emailaddress) );
Code: Select all
print FILE join(',', map{q{'}.$cg->param($_).q{'}} qw(comment name emailaddress) );
Code: Select all
open(FILE,">$c->{target_dir}/$fn.txt");
Code: Select all
open(FILE,">$c->{target_dir}/$fn$i.txt");