perlquestion BrowserUk <blockquote><i></i></blockquote> <p>I need to break unsigned 32-bit values into 4 parts: (from the msb) 14-bits, 6-bits, 6-bits, 6-bits; (using perl rather than I::C or XS). That can be done as follows: <code> #! perl -slw use strict; my $n = 0x80061861; my $top14 = ( $n & 0xfffc0000 ) >> 18; my $nxt6 = ( $n & 0x0003f000 ) >> 12; my $mid6 = ( $n & 0x00000fc0 ) >> 6; my $bot6 = ( $n & 0x0000003f ); print "$n => $top14 : $nxt6 : $mid6 : $bot6"; __END__ C:\test>bit 2147883105 => 8193 : 33 : 33 : 33 </code> <p>But I need to do this millions of times, so I'm looking to see if there is a more <i>efficient</i> way? (I don't care if I get 4 separate variables or an array with 4 values.) <p>Note: This is for me; no one else. Elegance, readability and maintainability are simply not considerations here. Just speed. <p>Any suggestions? <div class="pmsig"><div class="pmsig-171588"> <hr /> <font size=1 > <div>With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'</div> <div>Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.</div> <div>"Science is about questioning the status quo. Questioning authority". </div> <div>In the absence of evidence, opinion is indistinguishable from prejudice. </div> </font> </div></div>