Re: conditional statement in substitution expression

by Roy Johnson (Monsignor)

on Aug 04, 2009 at 17:16 UTC ( #785837=note: print w/replies, xml )

Need Help??

  s/\*\*([^\*]+)\*\*\s\,\s\*\*([^\*]+)\*\*(\s\,)?/(grep {index($_,'_')
+>=0} $1,$2)?"**$1_($2)**":$&/ge;
[download]

This incurs the performance penalty for using $&, so you might prefer

while(<DATA>) {
  s/(\*\*([^\*]+)\*\*\s\,\s\*\*([^\*]+)\*\*(\s\,)?)/(grep {index($_,'_
+')>=0} $2,$3)?"**$2_($3)**":$1/ge; 
  print;
}
[download]

Caution: Contents may have been coded under pressure.

Comment on Re: conditional statement in substitution expression Select or Download Code

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://785837]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others chilling in the Monastery: (3)

As of 2023-03-28 06:04 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Notices^?