Этот скрипт дает мне два раза один и тот же вывод. Существуют ли кодировки, которые не переживут utf8
encode
и decode
между двумя say
?
#!/usr/bin/env perl
use warnings;
use 5.16.1;
use Encode qw/encode decode/;
my $my_encoding = 'ISO-8859-7';
binmode STDOUT, ":encoding($my_encoding)";
my $var = "\N{GREEK SMALL LETTER TAU}";
$var .= "\N{GREEK SMALL LETTER OMEGA WITH TONOS}";
$var .= "\N{GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA}";
$var = encode( 'utf8', $var );
$var = decode( $my_encoding, $var );
say $var;
my $test = encode( 'utf8', $var, Encode::FB_CROAK );
$var = decode( 'utf8', $test, Encode::FB_CROAK );
say $var;