Problem with dec data to bin data translator in Perl

[davyzhu]

Hi all,

I want to write a dec data to bin data translator.
But I found the $dec_pack in the program don't print "A signed integer value" as the pack manual said. Why? Thanks!

#------------------------------------------------
use strict;
use warnings;


my $dec = 1234;
my $bin;

$bin = dec2bin($dec);

print 'bin is ',$bin,"\n";

sub dec2bin {
my $dec_shift = shift;
print 'dec_shift is ',$dec_shift, "\n";

my $dec_pack = pack("i", $dec_shift);
print 'dec_pack ',$dec_pack, "\n";

return unpack('B32', $dec_pack);
}
#----------------------------------------------------

Best regards,
Davy

 

[umairsiddiqui]

[Perl] pack problem

if just want to convert dec value to bin value consider "sprintf"