Re: More Regexp Confusion

What do you mean by "xx"? A "constant" string? For example, if $foo = 'GOAT', you mean to match strings like:

G..O..A..T
GaaOaaAaaT
GabcOabcAabcT
G<<<<<O<<<<<A<<<<<T

If this assumption is correct, this is a possible way (yet quite inefficient) to handle it:

my @foo = split //, $foo;
$foo = shift(@foo) . q{(.*?)} . join q{\2}, @foo;

while ( my $line = <FH> ) {
    s/($foo)/$stuff1$1$stuff2/g;
}
[download]

--
AltBlue.

Comment on Re: More Regexp Confusion Select or Download Code

Replies are listed 'Best First'.
Re^2: More Regexp Confusion by mdunnbass (Monk) on Feb 01, 2007 at 22:29 UTC
Actually, it's not a constant string. I was trying to say in the OP that I didn't care what the 'xx' was, but I guess I didn't explain that very well. In reality, most likely, it'll take the form of possible HTML tags. I say possible, because there most likely will be none, but there might be some, and if they're there, they may be either opening or closing tags, or even tags with multiple attributes. I do know that any text will be lowercase. So, for instance, given `$foo = 'GOAT'`, I want all of the following to match: `asdfgGOATaewrjgn ererGOAskjgbrTslkgjnjng ccG<!-- comment on status of global geopolitical economics -->OAjgTsvs aGO<h3>i hate clowns</h3>ATbbb` [download] And in the last example, the output that I want would be: `'a' . $stuff1 . 'GO<h3>i hate clowns</h3>AT' . $stuff2 . 'bbb'` [download] I hope that helps. Matt	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: More Regexp Confusion
by mdunnbass (Monk) on Feb 01, 2007 at 22:29 UTC

In reality, most likely, it'll take the form of possible HTML tags. I say possible, because there most likely will be none, but there might be some, and if they're there, they may be either opening or closing tags, or even tags with multiple attributes. I do know that any text will be lowercase. So, for instance, given $foo = 'GOAT', I want all of the following to match:

asdfgGOATaewrjgn
ererGOAskjgbrTslkgjnjng
ccG<!-- comment on status of global geopolitical economics -->OAjgTsvs
aGO<h3>i hate clowns</h3>ATbbb
[download]

And in the last example, the output that I want would be:

'a' . $stuff1 . 'GO<h3>i hate clowns</h3>AT' . $stuff2 . 'bbb'
[download]

Matt

[reply]
[d/l]
[select]