perl - 如何获得已定义的 ${^OPEN}？

Question

此代码需要进行哪些更改才能获得定义的 ${^OPEN}?

#!/usr/bin/env perl
use warnings;
use strict;
use open qw( :std :utf8 );

print ${^OPEN};

---

Use of uninitialized value $^OPEN in print at ./perl.pl line 6.

Answer 1

这是相当不安的方式。使用更具可读性的 Perl 可能会更好。

:utf8输出 utf-8 字符集但不检查其有效性，你不应该使用这个，除了一个衬里。改为使用:encoding(UTF-8)。

请参考这篇文章不同 utf8 的 open pragma 有何不同？有关不同类型的 utf-8 输入/输出的更多信息。

我什至不知道什么可能是${^OPEN}可变的。我建议你根本不要使用它，因为你不应该使用魔法标点符号。

希望能帮助到你