Help for this page
use strict; use warnings; ... print reverse split '', unpack'b*', pack'c', $val; print "\n"; }
C:\>perl test.pl Zero : 0 => 00000000 ... Or-ed 1 : 5 => 00000101 shift 1 : 10 => 00001010 Or-ed 0 : 10 => 00001010