?

Log in

Previous Entry

sub dec2bin {
    my $str = unpack("B32", pack("N", shift));
    $str =~ s/^0+(?=\d)//;   # інакше отримаємо 0 на початку
    return $str;
}

sub bin2dec {
    return unpack("N", pack("B32", substr("0" x 32 . shift, -32)));
}

Сподіваюсь комусь знадобиться :)

Profile

camel
ua_perl
Розробка на мові Perl

Latest Month

червень 2008
S M T W T F S
1234567
891011121314
15161718192021
22232425262728
2930     
Розроблено LiveJournal.com
Designed by Tiffany Chow