PERL: из целого (INT) получить старший младший и другие байты.

Всем хай, может и офтопик, но:
самый очевидный метод - сдвигами. А возможно ли вообще представить целое в перле как в Ц
union {
unsigned long some;
struct {
unsigned long some0:8;
unsigned long some1:8;
unsigned long some2:8;
};
}some;

на перле
my $what = 131333;
представить ег оввиде структуры some и получить some0...

 

pack/unpack?

 

Может, но не хватает знания перл, что-бы применить его

 

Скажи perldoc perlpacktut)

Код (Text):

1. #!perl -W
2. use strict;
3. use warnings;
4.  
5. my $what = 0x20105; # 131333
6. print "$what consists of bytes: " . join(';', unpack('C4', pack('L', $what))) . "\n";
7. exit(0);

 

спасибо. А все ж тока та7 нет структур как в Ц там?