如何在Perl中打印八进制字符?

w7t8yxp5  于 2023-05-07  发布在  Perl
关注(0)|答案(1)|浏览(169)

如何打印八进制表示的字符?请注意,这些字符可能是特殊字符(转义符、背景、箭头键等)。
例如,我想要一个函数'printoctal',这样:

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

我想打印120

y1aodyip

y1aodyip1#

你想要两样东西:ord接受一个字符串,并返回该字符串的第一个字符的数值。也就是说,ord "P"是80。
然后,您需要printfsprintfsprintf "%o", $num将接受一个数字并返回该数字的八进制表示,printf将打印八进制表示而不是返回它。
printf "%o\n", ord "P"将打印"120"

相关问题