perl: jednoduchý deaccent

5.2.2007 17:35 | Přečteno: 1240×

Jednoduchý odstraňovač diakritiky (utf8 na vstupe i na výstupe)

perl -CS -e 'print join "", @{{ (map {chr, chr} 0..127), map { /^(\S+)\s+LATIN (\S)\S+ LETTER (.)\b/ ? (chr hex $1, $2 eq "S" ? lc $3 : $3): () } split /^/, do "unicore/Name.pl"}}{split //, join "", <>}' PS. nebol použitý žiaden komprimačný algoritmus        

Komentáře

[Kyosuke]

Který prase Ti dalo záporný hodnocení za krásný perlovský hack? To musel být nějaký pythonista!

[happy barney]

to asi preto, že to obsahuje chyby, ktoré ma nenapadli / som si nevšimol

hmm, pythonista? škoda, mohol sa pochváliť svojou verziou

[Martin Stiborský]

reskept :)
díky ti, pythone, za to že jsi :)

[manasekp]

to je pred nebo po zasifrovani ?

[Mikos]

To umim taky, cat /dev/urandom

Btw. to mi připomnělo dva skvělé citáty které mi nedávno připomněl blogpost Oblíbené hlášky související s UNIX-like systémy a Linuxem:

PERL: jediný jazyk který před i po zakódování vypadá stejně.

PERL vypadá jak šum na lince.

[Michal Vyskočil]

Myslím, že na programy v dc, nebo některá makra ve vimu, tohle ještě zdaleka nemá