my @KEYWORDS3 = (
'STDIN', 'STDOUT'
);
-my %SYMBOLS = ( '=' => '=', '<' => '<', '>' => '>', '\|' => '|', ',' => ',', '\.' => '.', '\+' => '+', '\-' => '-', '\*' => '*', '\/' => '/', '\!=' => '!=' );
+my %SYMBOLS = ( '=' => '=', '<' => '<', '>' => '>', '\|' => '|', ',' => ',', '\.' => '.', '\+' => '+', '\-' => '-', '\*' => '*', '\/' => '/', '!=' => '!=' );
my @BRACKETS = ( '(', ')' );
map { $_ = quotemeta($_) } @BRACKETS;
return $code if ($nohighlight);
foreach my $x (keys %SYMBOLS) {
- $code =~ s/$x/\$\$CLASSSY0A\$\$$SYMBOLS{$x}\$\$CLASSSY0B\$\$/igs;
+ $code =~ s/$x/\$\$CLASSSY0A\$\$$SYMBOLS{$x}\$\$CLASSSY0B\$\$/gs;
}
#$code =~ s/("[^"]*")/<span class="st0">$1<\/span>/igs;
- $code =~ s/('[^']*')/<span class="st0">$1<\/span>/igs;
- $code =~ s/(`[^`]*`)/<span class="st0">$1<\/span>/igs;
+ $code =~ s/('[^']*')/<span class="st0">$1<\/span>/gs;
+ $code =~ s/(`[^`]*`)/<span class="st0">$1<\/span>/gs;
for (my $x = 0; $x <= $#KEYWORDS1; $x++) {
#$code =~ s/\b($KEYWORDS1[$x])\b/<span class="kw1">$1<\/span>/igs;
for (my $x = 0; $x <= $#BRACKETS; $x++) {
$code =~ s/($BRACKETS[$x])/<span class="br0">$1<\/span>/igs;
}
- $code =~ s/\$\$CLASSSY0A\$\$([^\$]+)\$\$CLASSSY0B\$\$/<span class="sy0">$1<\/span>/igs;
+ $code =~ s/\$\$CLASSSY0A\$\$([^\$]+)\$\$CLASSSY0B\$\$/<span class="sy0">$1<\/span>/gs;
$code =~ s/\b(\d+)\b/<span class="nu0">$1<\/span>/igs;