Scrittura di one-liner con riconoscimento Unicode in Perl

Question

Qual è il modo corretto di scrivere one-liner con riconoscimento Unicode in Perl? Il modo ovvio:

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

... sembra un pò per lavorare a prima vista, ma questo è solo un incidente: l'Unicode viene interpretato come byte come illustrato nell'esempio seguente:

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

Usando solo la bandiera -C per impostare la STDIN/STDOUTecc a UTF-8 non è sufficiente di per sé:

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

... perché ora il testo in -e non viene interpretato come Unicode.

Quindi questa è la strada da percorrere (assumendo una LOCALE sano di mente - che è, uno in forma "*.UTF‑8") come questo:

$ perl -C -Mutf8 [...] 

Answer 1

Sì, il caricamento del utf8 pragma è tenuto ad interpretare il “フ” sequenza UTF-8 nel codice sorgente come carattere invece come byte separati.

L'interruttore della riga di comando Perl -C e il pragma utf8 sono indipendenti dalla locale, ma il comando echo della shell non lo è.

Answer 2

Mi piace usare utf8::all se ho bisogno di gestire unicode

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

PS. utilizzando -C è necessario anche dare flag specifici anche, per quanto ne so

Answer 3

in Windows 7:

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