珀尔 |打印 ASCII，但反斜杠其他

Question

我希望打印 95 个 ASCII 符号不变，但让其他人打印其代码。 如何在纯perl中制作它？ “解包”功能？任何模块？

print BackSlashed('test folder'); # expected test\040folder

print BackSlashed('test тестовая folder'); 
# expected test\040\321\202\320\265\321\201\321\202\320\276\320\262\320\260\321\217\040folder

print BackSlashed('НОВАЯ ПАПКА');
# expected \320\235\320\236\320\222\320\220\320\257\040\320\237\320\220\320\237\320\232\320\220

sub BackSlashed() {
my $str = shift;
.. backslashed code here...
return $str
}

Answer 1

您可以将正则表达式替换与已评估的替换部分一起使用。在那里，需要先convert each character to its numeric value，然后output it in octal notation。有一个很好的解释in this answer。附加转义的反斜杠 \ 以使其显示在输出中。

$str =~ s/([^a-zA-Z0-9])/sprintf "\\%03o", ord($1)/eg;

我将捕获组限制为基本的 ASCII 字母和数字。如果你想要其他东西，只需更改角色组即可。

---

由于您的示例输出包含八位字节，但您说您的代码具有 use utf8 杂注，您需要在运行替换之前将 Perl 的字符串表示转换为相应的八位字节序列。

use utf8;
my $str = 'НОВАЯ ПАПКА';
print foo($str);

sub foo { # note that there are no () here!
    my $str = shift;
    utf8::encode($str);
    $str =~ s/([^a-zA-Z0-9])/sprintf "\\%03o", ord($1)/eg;
    return $str;
}