原です。

> 渡辺＠ソニーです.
> 
> yet another な decode64 です. perl からの移植. uuencoded
> format に変換しちゃうってのがなかなかのアイディアですね.

私はこんなの使ってました。

def decode64h(str)
  s = str.sub(/=*$/, "")
  s.tr!("A-Za-z0-9+/", "\x00-\x3f")
  s.gsub!(/[\x00-\x3f]/){ $&.unpack("B8")[0][2, 6] }
  [s].pack("B" + s.length / 8*8)
end

ほとんど同じ。^^; でも gsub を使っているこっちの方がだいぶ
遅いですね。

tr の d オプションが欲しいなあ。（ひとりごと）

まつもとさん、tr_s がちゃんと動いてないみたいです。
---===-=-=-=-=-=-=-=-=======--=-=-=-==-=-===-=-=-=-=-=-=--=-==-=--
　　                         Shin-ichro Hara(Nagaoka Univ.of Tech.)