> perl -e 'printf "unicode %d\n", utf8::is_utf8($ARGV[0])' ф unicode 0 > perl -e 'use open ":std", ":encoding(UTF-8)"; printf "unicode %d\n", utf8::is_utf8($ARGV[0])' ф unicode 0 > perl -e 'use open IN => ":encoding(UTF-8)", OUT => ":utf8"; printf "unicode %d\n", utf8::is_utf8($ARGV[0])' ф unicode 0
Обсуждают сегодня