in reply to TEXT TO CSV
while (<>) { chomp; s/"/""/g; print qq["$_",\n]; }
package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name
|
---|
In Section
Seekers of Perl Wisdom
in reply to TEXT TO CSV
while (<>) { chomp; s/"/""/g; print qq["$_",\n]; }
|
---|