Как получить определенный ${^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? для получения дополнительной информации о различных типах входов / выходов utf-8.

Я даже не знаю, что может быть ${^OPEN} переменная. Я советую вам не использовать его вообще, так как вы не должны использовать магическую пунктуацию.

Надеюсь, поможет