pack problem?

[Davy]

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

 

[DJ Stunks]

I want to write a dec data to bin data translator.

it has already been written for you.

perldoc -f sprintf

-jp

 

[Peter J. Holzer]

["Followup-To:" header set to comp.lang.perl.misc.]

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!

Why do you think so?

hp