Re: How to Modify Only Non-Quoted Words?


Don't ask to ask, just ask
	PerlMonks

Re: How to Modify Only Non-Quoted Words?

by ikegami (Patriarch)

on Aug 30, 2004 at 20:10 UTC ( [id://387018]=note: print w/replies, xml )

Need Help??

in reply to How to Modify Only Non-Quoted Words?

$_ = q{
xxx "xxxxx xxx xxxx" 'xxxx xx xx' xxxx xxxx "xxxxx " "xxx" xxx
};

s/
   \G
   ( # $1
      (?:
         (?:"(?:[^"\\]|\\.)*")  # Skip double-quoted phrases.
         |
         (?:'(?:[^'\\]|\\.)*')  # Skip single-quoted phrases.
         |
         \s                     # Skip whitespace.
      )*
   )
   ( # $2
      [^\s"']+                  # Something to prefix.
   )
/$1A$2/gsx;

print;


__END__
output:
======
Axxx "xxxxx xxx xxxx" 'xxxx xx xx' Axxxx Axxxx "xxxxx " "xxx" Axxx
[download]