Perlで2進数

今日ある友人に野暮用で会った。

Perl Cookbook (English)
日本語版

彼がなぜだかPerlで2進数を扱うのに悩んでいたので回答。

彼が悩んでいたのは、２進数を１０進数に変換する方法。

まっとうに考えると、こんな感じになるだろう。

sub bin2dec($){
    my $bin = shift;
    my $dec = 0;
    for my $i (split // => $bin){
        $dec = $dec*2+$i;
    }
    return $dec;
}

しかしこういう方法もある。

sub bin2dec($){
    my $bin = shift;
    my $dec = 0;
    $bin =~ s/([01])/$dec=$dec*2+$1/geo;
    return $dec;
}

極めつけは、この方法。

sub bin2dec($){
    $_[0] =~ /([01]+)/o;
    return eval "0b$1";
}

その逆の方は、ものすごい簡単。

sub dec2bin($){ sprintf "0b%b" => @_ }

この手のことは、表題の本に詳しいので是非。日本語版の監訳者には私も名を連ねてます。

Dan the JAPH

Comments

朝生を見てからファンになりました。

ふと思ったのですが、
ライブドアのトップページがyahooに酷似している件で、
これって子飼さんも開発に関わっていたのですか？
僕としては上場企業があそこまでパクるのはどうかと思います・・・

Posted by weiy1005 at 2005年07月29日 21:04