[ruby-list:2247] Re: [BUG] decode64

原です。


> わたなべです.
> 
> :原です。

> :そもそも、Christiansen の
> :
> :> #!/usr/bin/perl
> :> while (<>) {
> :>   tr#A-Za-z0-9+/##cd;                   # remove non-base64 chars
> :>   tr#A-Za-z0-9+/# -_#;                  # convert to uuencoded format
> :>   $len = pack("c", 32 + 0.75*length);   # compute length byte
> :>   print unpack("u", $len . $_);         # uudecode and print
> :> }
> 
> こっちはちゃんと / が含まれてるから合ってると思います.


お、今度はこっちがが間違えた！こわいですねー。(^^;