Perl'de Unicode Duyarlı Tek Katmanları Yazma

Question

Perl'de Unicode Duyarlı Tek Katmanları Yazmanın Doğru Yolu Nedir? açık yolu:

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

... tür ilk görüşte üzerinde çalışmaya görünür, ancak bu sadece bir kaza olduğunu:

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

Sadece kullanarak: aşağıdaki örnekte görüldüğü gibi Unicode bayt olarak yorumlanır -C bayrak UTF-8'e STDIN/STDOUTvb yeterli değildir tek başına ayarlamak için:

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

... Çünkü şimdi -e'daki metin Unicode olarak yorumlanmadı.

$ perl -C -Mutf8 [...] 

Answer 1

Evet, utf8 pragma yüklenirken bir karakteri yerine ayrı byte olarak kaynak kodunda “フ” UTF-8 dizisini yorumlamak için gereklidir.

Perl -C komut satırı anahtarı ve utf8 pragma yerel bağımsızdır, ancak kabuğun echo komutu değildir.

Answer 2

Ben Unicode

işlemek gerekiyorsa utf8::all kullanmak ister: - (yani, formda "*.UTF‑8" bir aklı başında LOCALE varsayarak) böyle

Yani bu gitmek yoludur

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

PS. -C kullanarak da AFAIK, çok özel bayrakları vermek gerek

Answer 3

Windows 7'de

:

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