如何获得已定义的${^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打开pragma ?有关不同类型的utf-8输入/输出的更多信息。

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

希望有所帮助