Byte strings- a question I cannot figure out involving pack/unpack

[LinuxNoobPhilip]

Hi, I am trying to take a number format it as a 32 bit(4 byte) unsigned integer, then append it to a string.

the string I want is the follow "#0001", where the integer was 12. does this make sense? so this is what I thought I should do it

$string = "#";
$int = pack('L',1)
$string.= unpack('L',$int)

Ouput: "#1

 

[prex1]

No, it doesn't make sense to me.
By doing [tt]pack[/tt] then [tt]unpack[/tt] you obviously come back to the start. So what?

Franco

http://www.xcalcs.com

: Online tools for structural design

http://www.megamag.it

: Magnetic brakes for fun rides

http://www.levitans.com

: Air bearing pads

 

[LinuxNoobPhilip]

What I want to do is take a number (say from a for loop 1,2,...) make it 4 bytes long(in representation) and append it to a string like this.

$theString.=the4ByteNumber; # "xxxxxx0001" for example

 

[rvBasic]

my $str='#';
my $result='';
foreach my $i (1..15) {
	$result=$str.sprintf("%04u",$i);
	print "$result\n";}

Does this makes sense to you?

_________________________________
In theory, there is no difference between theory and practice. In practice, there is. [attributed to Yogi Berra]

 

[LinuxNoobPhilip]

Sweet Thank you very much man!

That is exactly what I was trtying to do!