Help for this page

Select Code to Download


  1. or download this
    my $d = "16895";
    my $f = "33206";
    ...
    my $l43b = $d & oct(70); # still 6 bits though,
    $l43b  = $l43b >> 3;
    print "$od and oct(70) shifted 3 bits to the right = ",sprintf("%o",$l
    +43b)," in octal\n";
    
  2. or download this
    16895->40777
    33206->100666
    ...
    33188->100644
    lowest three bits of octal 40755 is 5
    40755 and oct(70) shifted 3 bits to the right = 5 in octal