[Moscow.pm] UTF8 ещё раз

[Sergey Homenkow]

Dmitry Simonov пишет:
> Озадачился тут вопросом - определить вручную, является ли входной поток 
> utf8 или не является. Вот в результате получился такой код:

> Понятно, что эта конструкция подлежит упрощению, но хотелось бы понять - 
> насколько сама идея может считаться грациозной и изящной :)

Ну даже не знаю что изящнее:

$flag = utf8::valid($str);

или

eval { Encode::decode_utf8($str, Encode::FB_CROAK) };
$flag = !$@;

А делать это на pure perl должно быть гораздо медленее.