Каков правильный способ записи Unicode-совместимых однострочных в Perl? Очевидный способ:
$ echo 'フーバー' | perl -lne 'print if /フ/'
フーバー
... вид, похоже, срабатывает с первого взгляда, но это просто случайность: Unicode интерпретируется как байты, как показывает следующий пример:
$ echo 'フーバー != フウバー' | perl -mString::Diff=diff -lne 'print join(" ", diff($1, $2)) if /(.*)!=(.*)/' => 29
フ?[??]バー[ ] { }フ?{??}バー
Просто использование флага -C для установки STDIN/STDOUT и т.д. для UTF-8 не является само по себе:
$ echo 'フーバー' | perl -C -lne 'print if /フ/'
[no output]
... потому что теперь текст в -e не интерпретируется как Unicode.
Итак, это способ пойти (предполагая разумный LOCALE, то есть один в форме "*.UTF‑8"), как это:
$ perl -C -Mutf8 [...]
Да, загрузка utf8 pragma требуется для интерпретации последовательности "フ" UTF-8 в исходном коде как символ вместо этого как отдельные байты.
Переключатель командной строки Perl -C и прагма utf8 независимы от языка, но команда shell echo не является.
Мне нравится использовать utf8::all, если мне нужно обрабатывать unicode
echo 'フーバー' | perl -Mutf8::all -lne 'print if /フ/'
PS. используя -C, вам также нужно указать определенные флаги, AFAIK
в Windows 7:
chcp 65001
perl -M"charnames':full'" -E "say qq{I \N{HEAVY BLACK HEART} PSGI.}"