[ruby-list:32411] Re: fastcgi.rb and cgi.rb

青山です。

On Fri, Nov 16, 2001 at 10:38:07PM +0900,
MoonWolf <[e-mail]> wrote:

> [変更点]
> ・文字実体参照で大文字小文字を区別する
> ・$KCODE='u'の時、HTML4.01/XHTML1.0の文字実体参照に対応
>    CGI::unescapeHTML("&copy;") #=> "\302\251"
> ・$KCODE='u'以外の場合、&#0〜&#127のみunescape
>    unescape出来ない場合、RangeErrorをあげる
> ・ISO10646のコードポイント0...2**31のunescapeに対応

[ruby-list:32359] へのコメントの方へも書きましたが、unescape 後の各文
字コードへの対応については、NKF や uconv 等にまかせ、unescapeHTML では
$KCODE に影響させず、単に [].pack("U") にしてしまうのが良さそうにも思
えてきているのですが、いかがでしょうか？


  def CGI::unescapeHTML(string)
    string.gsub(/&(.*?);/n) do
      match = $1.dup
      case match
      when /\Aamp\z/n           then '&'
      when /\Aquot\z/n          then '"'
      when /\Agt\z/n            then '>'
      when /\Alt\z/n            then '<'
      when /\A#0*(\d+)\z/n      then [Integer($1)].pack("U")
      when /\A#x([0-9a-f]+)\z/n then [$1.hex].pack("U")
      else
        "&#{match};"
      end
    end
  end


Perl の CGI ライブラリがこの程度で実用になっている事からすると、これで
十分のような気がしてきています。


-- 
青山 和光 Wakou Aoyama  <[e-mail]>