Perl如何打印八進制字符？

Question

如何使用八進制表示來打印字符？請注意，這些字符可能是特殊字符（逃逸，背景，箭頭鍵）。

例如，我想一個函數printoctal'，使得：

my $char='P'; 
printoctal $char; 

，我想，要打印120

Answer 1

你想兩件事情：ord接受一個字符串，並返回該字符串的第一個字符的數字值。也就是說，ord "P"是80.

然後，你想要printf或sprintf。 sprintf "%o", $num將接收一個數字並返回一個字符串，即該數字的八進制表示，printf將打印八進制表示而不是返回它。

合起來，printf "%o\n", ord "P"將打印"120"。