[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