Re: Replacing commas in a substring when it is between quotes (2 ways)

[tye]

Using Text::CSV seems like a more likely way to get it right on the first try. But your idea isn't hard to do:

s{(".*?")}{ my $s = $1; $s =~ s/,/-/g; $s }ge

You can also replace the regex with something that handles escapes.

Just for variety, here is another approach:

my $in = 0;
s{(")|,}{ if($1){ $in= !$in; $1 }elsif($in){ '-' }else{ ',' } }ge

[ZlR]

Thanks Tye !! That's nice and neat, just what i need and a real time saver right now :)

I had no idea one could use commands from inside the substitute side, that's great.