Help for this page

Select Code to Download


  1. or download this
    perl -le 'print prototype "CORE::vec"'
    
  2. or download this
    $vec = '';
    my ($offset,$bits) = (0, 4);
    vec($vec, $offset, $bits) = 1;
    $bits = unpack("b*", $vec);
    print "$bits\n";