ghi Unicode một-liners trong Perl

Question

Cách chính xác để viết một lớp lót nhận biết Unicode trong Perl là gì? Cách rõ ràng:

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

... kinda xuất hiện để làm việc trên cái nhìn đầu tiên, nhưng đây chỉ là một tai nạn: Unicode được hiểu như là byte như ví dụ tiếp theo cho thấy:

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

Chỉ cần sử dụng cờ -C để thiết lập STDIN/STDOUT, vv sang UTF-8 là không đủ bởi chính nó:

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

... bởi vì bây giờ văn bản trong -e không được hiểu là Unicode.

Vì vậy, đây là con đường để đi (giả sử một LOCALE lành mạnh - có nghĩa là, một trong các hình thức "*.UTF‑8") như thế này:

$ perl -C -Mutf8 [...] 

Answer 1

Vâng, tải utf8 pragma là cần thiết để giải thích các “フ” UTF-8 chuỗi trong mã nguồn như một nhân vật thay vì như byte riêng biệt.

Công tắc Perl -C dòng lệnh và utf8 pragma không phụ thuộc vào miền địa phương, nhưng lệnh echo của trình bao không phải.

Answer 2

Tôi thích sử dụng utf8::all nếu tôi cần phải xử lý unicode

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

PS. sử dụng -C bạn cũng cần phải cung cấp cho cờ cụ thể quá, AFAIK

Answer 3

trong Windows 7:

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