pisanie Unicode-jednoelementy w Perlu

Question

Jaki jest poprawny sposób pisania unlode-świadomych jednolinijkowych w Perlu? Oczywistym sposobem:

$ echo 'フーバー' | perl -lne 'print if /フ/' 
フーバー 

... trochę wydaje się działać na pierwszy rzut oka, ale to tylko wypadek: Unicode jest interpretowany jako bajty jako kolejny przykład:

$ echo 'フーバー != フウバー' | perl -mString::Diff=diff -lne 'print join(" ", diff($1, $2)) if /(.*)!=(.*)/'                     => 29 
フ?[??]バー[ ] { }フ?{??}バー 

Wystarczy za pomocą Flaga -C ustawić STDIN/STDOUTitp na UTF-8 nie jest wystarczająca sama:

$ echo 'フーバー' | perl -C -lne 'print if /フ/' 
[no output] 

... ponieważ teraz tekst w -e nie jest interpretowany jako Unicode.

więc jest to do zrobienia (zakładając sane miejscowego - to jest on w postaci "*.UTF‑8") tak:

$ perl -C -Mutf8 [...] 

Answer 1

Tak, ładowanie utf8 pragma jest zobowiązany do interpretowania „フ” UTF-8 sekwencji w kodzie źródłowym jako postać zamiast jako oddzielne bajtów.

Przełącznik wiersza polecenia Perl -C i pragma utf8 są niezależne od ustawień narodowych, ale komenda powłoki echo nie jest.

Answer 2

Lubię używać utf8::all jeśli muszę obsługiwać Unicode

echo 'フーバー' | perl -Mutf8::all -lne 'print if /フ/' 

PS. stosując -C Należy również podać konkretne flagi zbyt AFAIK

Answer 3

w Windows 7:

chcp 65001 
perl -M"charnames':full'" -E "say qq{I \N{HEAVY BLACK HEART} PSGI.}"