in reply to Re: Regular expression question
in thread Regular expression question

Thanks. So to expand on this a bit, I want to do that regex but not if there is a
between the angle brackets (there probably never be white space, before and after the br, but I want to check just in case). so, 
<br> Don't do the regex
< br > Don't do the regex
<  br> Don't do the regex
<br > Don't do the regex

<this> Do the regex
<is> Do the regex
<a> Do the regex
<test> Do the regex
<this is a test> Do the regex

[download]
Thanks again ...

Replies are listed 'Best First'.
Re: Regular expression question
by Abigail-II (Bishop) on Jan 16, 2004 at 17:00 UTC 
    #!/usr/bin/perl

use strict;
use warnings;

undef $/;

$_ = <DATA>;

my %repl = qw /
    <      &lt;
    >      &gt;
    foo    bar
    bar    foo
/;

s/(<\s*br\s*>|[<>]|foo|bar)/$repl{$1}||$1/ge;

print;

__DATA__
<br> Don't do the regex
< br > Don't do the regex
<  br> Don't do the regex
<br > Don't do the regex

<this> Do the regex
<is> Do the regex
<a> Do the regex
<test> Do the regex
<this is a test> Do the regex




<br> Don't do the regex
< br > Don't do the regex
<  br> Don't do the regex
<br > Don't do the regex

&lt;this&gt; Do the regex
&lt;is&gt; Do the regex
&lt;a&gt; Do the regex
&lt;test&gt; Do the regex
&lt;this is a test&gt; Do the regex

    [download]

    Abigail

[reply]
[d/l]
      What does this part do: 
      $repl{$1}||$1/ge;

      [download]
      I know the 'g' is global but I couldn't find what the 'e' is. Also, I couldn't find any info for the '||'.

      Thanks in advance.

[reply]
[d/l]
        I couldn't find what the 'e' is
        It's in man perlop.
        Also, I couldn't find any info for the '||'.
        Amazingly, that's also in man perlop.

        Abigail

[reply]

In Section Seekers of Perl Wisdom