Re: How to match a token not be quoted?

Rob Dixon wrote:
Gunnar Hjalmarsson wrote:
Zhao, Bingfeng wrote:
I want to a cure regex that match following requirements: given $line =
'abc abc "abc abcc" abcc', I want to replace all instances of "abc" that
not in quotation with, say 'd', so I expect I get 'd d "abc abcc" dc'.

$line =~ s/("[^"]*")|abc/$1 ? $1 : 'd'/eg;

You need a non-greedy modifier on that Gunnar:

$line =~ s/("[^"]*?")|abc/$1 ? $1 : 'd'/eg;

Rob


What if : ("[^"]+") ? Is that any danger ?



.

Relevant Pages

  • Re: How to match a token not be quoted?
    ... Gunnar Hjalmarsson wrote: ... 'abc abc "abc abcc" abcc', I want to replace all instances of "abc" that ... not in quotation with, say 'd', so I expect I get 'd d "abc abcc" dc'. ...
    (perl.beginners)
  • Re: How to match a token not be quoted?
    ... Rob Dixon wrote: ... not in quotation with, say 'd', so I expect I get 'd d "abc abcc" dc'. ... Gunnar Hjalmarsson ...
    (perl.beginners)