可以在perl中打包5位吗？

Question

例如，假设我要打包以下位：11111，十进制为31。我如何打包这5位？我不想打包8位或1个字节。我只需要打包5位; 11111

b5“11111”对我来说似乎不起作用。

Answer 1

适合我：

  print  oct "0b11111";
  31
  print ord(pack("b*","11111"));
  31