Perl如何以八进制打印字符？

【问题标题】：Perl how can I print a character in octal?Perl如何以八进制打印字符？
【发布时间】：2013-08-06 22:08:24
【问题描述】：

如何打印带有八进制表示的字符？请注意，这些字符可能是特殊字符（转义符、后退符、箭头键）。

例如，我想要一个函数'printoctal'，这样：

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

我想打印120

【问题讨论】：

为什么投反对票？我根本不介意他们，因为他们给了我一个机会来提高我的提问能力。但是如果没有反馈，我就无法改进。有人有建议吗？也许我应该给出一个完整的例子？还是问题太新手？

标签： perl

【解决方案1】：

您需要两件事：ord 接受一个字符串，并返回该字符串第一个字符的数值。也就是说，ord "P" 是 80。

那么，您需要printf 或sprintf。 sprintf "%o", $num 将接受一个数字并返回一个字符串，该字符串是该数字的八进制表示，printf 将打印八进制表示而不是返回它。

printf "%o\n", ord "P" 将一起打印"120"。

【讨论】：