[Roma.pm] - perfunc
Aldo Calpini
dada at perl.it
Tue Feb 5 03:30:36 PST 2008
kanak at perl.it wrote:
> per dirla piu' chiara:
> ce' una funzione che ti dice quaanto vale un numero binario?
>
non c'e' una funzione propriamente detta, ma la documentazione riporta
il seguente accrocco:
unpack("N", pack("B32", substr("0" x 32 . $numero, -32)))
che si puo' tradurre in una sub, per quanto non priva di peluria:
sub bintodec {
unpack("N", pack("B32", substr("0" x 32 . shift, -32)));
}
# esempio: my $risposta = bintodec("101010");
ovviamente vale solo per numeri fino a 4.294.967.295 (ossia 32 bit).
cheers,
Aldo
More information about the Roma
mailing list