Re: Regex - it works, but not the way i want it to =(

Thank you for the links ^^
Im going to check out each one because those modules would probably do a better job then me or could show me what im missing.

I fixed the 2nt bug and dont really feel the first bug is really a big issue to fix.(since i was modeling it after a highlighter i use)
I added a few more highlights but the code overall is probably the most simplest of all highlighters =P

Main code

         $message =~ s~<br>~=br=~isg;
        while ($message =~ s{\[code\]([\S\s].+?[\S\s])\[/code\]}
                {

                        my $tmp = $1;
                        $tmp =~ s!<!&#60;!g;
                        $tmp =~ s!>!&#62;!g;
                        $tmp =~ s!:!&#58;!g;
                        $tmp =~ s!\[!&#91;!g;
                        $tmp =~ s!\\!&#92;!g;
                        $tmp =~ s!\]!&#93;!g;
                        $tmp =~ s!\)!&#41;!g;
                        $tmp =~ s!\(!&#40;!g;
                        $tmp =~ s!\|!&#124;!g;
                        $tmp =~ s!&lt;!&#60;!g;
                        $tmp =~ s!&gt;!&#62;!g;
                        $tmp =~ s!([^\&\$])(\#.*?(=br=))!$1<font color
+="blue"><i>$2</i></font>!g;
                        $tmp =~ s!(>)(\#.*?(=br=))!$1<font color="blue
+"><i>$2</i></font>!g; # A fix for bug 2
                        $tmp =~ s!(&#39;.*?(&#39;|=br=))!<font color=r
+ed>$1</font>!g;
                        $tmp =~ s!(&quot;.*?(&quot;|=br=))!<font color
+=red>$1</font>!g;
                        $tmp =~ s!(return)([^\w])!<b>$1</b>$2!g;
                        $tmp =~ s!(require)([^\w])!<b>$1</b>$2!g;
                        $tmp =~ s!([^\#\d\w])(\d+)!$1<font color=green
+>$2</font>!g;
                        $tmp =~ s!(while)!<b>$1</b>!g;
                        $tmp =~ s!(foreach)!<b>$1</b>!g;
                        $tmp =~ s!([^\w])(for)([^\w])!$1<b>$2</b>$3!g;
                        $tmp =~ s!([^\w])(my)([^\w])!$1<b>$2</b>$3!g;
                        $tmp =~ s!([^\w])(sub)([^\w])!$1<b>$2</b>$3!g;
                        $tmp =~ s!([^\w])(if)([^\w])!$1<b>$2</b>$3!g;
                        $tmp =~ s!([^\w])(eq)([^\w])!$1<b>$2</b>$3!g;
                        $tmp =~ s!([^\w])(ne)([^\w])!$1<b>$2</b>$3!g;
                        $tmp =~ s!([^\w])(lt)([^\w])!$1<b>$2</b>$3!g;
                        $tmp =~ s!([^\w])(gt)([^\w])!$1<b>$2</b>$3!g;
                        $tmp =~ s!([^\w])(or)([^\w])!$1<b>$2</b>$3!g;
                        $tmp =~ s!(next)!<b>$1</b>!g;
                        $tmp =~ s!(last)!<b>$1</b>!g;
                        $tmp =~ s!(unless)!<b>$1</b>!g;
                        $tmp =~ s!(elsif)!<b>$1</b>!g;
                        $tmp =~ s!(else)!<b>$1</b>!g;
                        $tmp =~ s!([^\w])(use)([^\w])!$1<b>$2</b>$3!g;
                        $tmp =~ s!(package)!<b>$1</b>!g;
                        $tmp =~ s!&quot;!&#34;!g;
                        $tmp =~ s!"!&#34;!g; #"
                        $tmp =~ s!\s{1};!&#59;!g;
                        #$tmp =~ s!&gt;br&gt;!\n!g;

                        $tmp = "<br><font color=\"blue\"><i># $msg{cod
+e}</i></font> <br><div class=\"codepost\"><code>"
                                . $tmp
                                . '</code><br><font color="blue"><i># 
+Code End</i></font></div>';
                }exisog) {}
$message =~ s~=br=~<br>~isg;
[download]

And here is an output of what it shows
#!/usr/bin/perl
# This code is not ment to work or syntax ok
# It is only ment to view the code highlighter
# for, if, befor, returning, return
print "Content-type: text/html\n\n";
print "<html><h1>Hello!</h1></html>\n";
push ( @INC, './lib' ) if $cfg{rr} gt 2;
push ( @INC, './lib2' ) if $cfg{st} lt 1 or die('im dead');
$14563634545345
package filters;
# ---------------------
# Untaint
# ---------------------
sub untaint {
my $value = shift || '';
my $pattern = shift || '\w\-\.\/';
return '' unless $value;
$value =~ m!^([$pattern]+)$!i
? return $1
: return;
}
elsif ($row[2]) { # a comment here
push ( @INC, './lib/modules' );
next unless ($row[3] ne -r "$row[3].pm") or die(' XP ');
require "$row[3].pm";
if ($row[4] eq $sub_action{$row[4]}) {
delete $INC[$#INC];
last;
}
$load = $row[3] . '::' . $row[4];
delete $INC{"$row[3].pm"};
sub html_escape
{
my $text = shift;
return '' unless $text;
#$text =~ s{\;}{#59;}gso; # SQL Safer
$text =~ s{&}{&}gso;
$text =~ s{"}{"}gso;
$text =~ s{<}{<}gso;
$text =~ s{>}{>}gso;
$text =~ s{'}{&#39;}gso; # SQL Safer
$text =~ s{\\}{&#92;}gso; # need this!
$text =~ s{\t}{ \  \  \ }gso;
$text =~ s{\|}{\&#124;}gso; # going to keep this
return $text;
}

Comment on Re: Regex - it works, but not the way i want it to =( Download Code