#!/usr/bin/perl $num=pack( 'L>',120000); #$buf="Pear"; $buf="\x00\x00\x00\x01$num\xff\xff\xff\xff\x00\x00\xff\xffPear"; print "Test data:\t$buf\n"; #$buf=[hex('00'),hex('00'),hex('00').hex('01')]; #$buf="ABCDEF"; #my @data = unpack('L>*', $buf); @values=unpack "L>*", $buf; # < or > specifies endianness #print $values; foreach my $val (@values) { print "$val\n"; }