如何获得定义的$ {^ 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)。

有关不同类型的utf-8输入/输出的详细信息，请参阅此文How differs the open pragma with different utf8?。

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

希望有所帮助