Perl で HTML エスケープ

perl で HTML エスケープする方法。大崎さんのperlメモから。

Namazu でインデキシングする HTML の場合、＜ ＞ ＆ ” “ もエスケープすること。
Namazu が奇妙な変換をするため。http://www.namazu.org/ml/namazu-users-ja/msg02528.html 参照。

# HTML エスケープする
sub HtmlEscape {
  my $content = $_[0];
  my $eucpre = qr{(?<!\x8F)};
  my $eucpost = qr{
      (?=
      (?:[\xA1-\xFE][\xA1-\xFE])* # JIS X 0208 が 0文字以上続いて
      (?:[\x00-\x7F\x8E\x8F]|\z)  # ASCII, SS2, SS3 または終端
      )
  }x;
  my @escape_from = qw(& > < " ');
  my @escape_to = ('&amp;', '&gt;', '&lt;', '&quot;', '&#39;');
  for (my $i = 0; $i <= $#escape_from; $i++) {
    $content =~ s/$eucpre\Q$escape_from[$i]\E$eucpost/$escape_to[$i]/g;
  }
  return $content;
}