Help for this page

Select Code to Download

Select or download this

#!perl
use strict;
...
}
print YAPE::Regex::Explain->new('&[^(amp;)|(lt;)|(gt;)]')->explain;
print convert($str),"\n";

Select or download this

my %htm = (
 '&' => '&amp;',
...
$str =~ s/$REx/$htm{$1}/g;
print $str."\n\n";
print YAPE::Regex::Explain->new($REx)->explain;