equivalent of php function decbin

[Thomas Theakanath]

Perl-php gurus,

I need to port a php program to Perl and wonder the equivalent of
decbin function in PHP could be the following:

sub decbin {
my $num=shift;
my $str = unpack("b*",pack("N",$num));
return $str;
}

Regards
Thomas.

[Iain Truskett]

* Thomas Theakanath <thomastk@hotmail.com>:

> I need to port a php program to Perl and wonder the
> equivalent of decbin function in PHP could be the
> following:

perlfaq4 - "How do I convert between numeric representations/bases/radixes?"

[url]http://faq.perl.org/perlfaq4.html#How_do_I_convert_bet[/url]


The FAQ is worth a good read through so you have an idea of
what is in it.


cheers,
--
Iain.

[Thomas Theakanath]

Thanks much. As usual, there are multiple ways to do this, per the
FAQ, using sprintf and Vector. My corrected routine would be the
following:
sub decbin {
my $num=shift;
my $str = unpack("B*",pack("N",$num));
return $str;
}

Thomas.