がんばって作ったのに・・・

BASE64をデコードしたくなったので、どうせ暇だからモジュールを使わずになるべく短いコードを作ってみようと思って、こんなコードを書いていたら（まだ最適化途中）

perl -e 'while(){print pack("B*",join("",map{substr(unpack("B*",pack("C",$_)),-6)}grep{$_>=0&&$_<64}map{my$c=unpack('C',$_);($c==0x2b)?62:($c==0x2f)?63:($c<0x30)?99:($c<0x3a)?$c+52-0x30:($c<0x41)?99:($c<0x5b)?$c-0x41:($c<0x61)?99:($c<0x7b)?$c-0x61+26:99}split(//,$_)))}'

いきなり、友達にこんなコードを見せられて

perl -e 'while(){tr#A-Za-z0-9+/##cd;tr#A-Za-z0-9+# -_#;print unpack("u",pack("C",32+3/4*length).$_);}'

一気にやる気が萎えてしまいました。そんな土曜。