in reply to Re: Skipping special tags in regexes
in thread Skipping special tags in regexes
#!/usr/bin/perl use strict; use warnings; my $tag = '(?:<[^>]*>)'; while (<DATA>) { s/($tag*tacos)/yummy $1/g; s/($tag*salad)/green $1/g; print; } __DATA__ I like tacos. <5b>I <5c>like <5d>tacos. I like a salad. <foo>I <foo>like <foo>a <bar><baz><foo>salad. <foo>I <foo>like <foo>a <bar><baz><foo>salad <bup>with <bobob>tacos. I like yummy tacos. <5b>I <5c>like yummy <5d>tacos. I like a green salad. <foo>I <foo>like <foo>a green <bar><baz><foo>salad. <foo>I <foo>like <foo>a green <bar><baz><foo>salad <bup>with yummy <bo +bob>tacos.
--
flounder
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Skipping special tags in regexes
by Abigail-II (Bishop) on Dec 04, 2003 at 22:23 UTC | |
by flounder99 (Friar) on Dec 05, 2003 at 14:15 UTC |