Вывести на экран кодировку строки в Perl

#encoding #perl

Есть строка $str в неизвестной кодировке. Как вывести на экран эту самую кодировку?    

Ответы

Ответ 1

Кажется, так:
use Encode::Detect::Detector;
my $encoding_name = Encode::Detect::Detector::detect($str);
print $encoding_name;