On 2010-12-20 13:44:42 +0200, Nicu wrote:
> On 12/20/10, Alin Iorga <[email protected]> wrote:
> > Salut,
> >
> > Incerc sa inlocuiesc diacritice cu non-diacritice.
> >
> > Am incercat si cu sed si cu perl cu ceva de genul instructiunii de mai
> > jos fara success.
> >
> > perl -pi -e "s/x{0103}/a/g"
> >
> > Aveti alte sugestii cum as putea face asta?
> ł
> perl -CIO -MUnicode::Normalize=NFKD -pe '$_=NFKD($_);s/[\pM\x{feff}]//g'
>
> soluţia nu-i perfectă (lasă în text ex. ł, ø, nu ştie să-l descompună
> pe æ în ae, etc)
Text::Unidecode pare sa stie de astea
echo "ăâîșțşţĂÂÎȘȚŞŢæłø" | perl -CSDL -MText::Unidecode=unidecode -ne'print
unidecode($_)'
aaiststAAISTSTaelo
--
perl -MLWP::Simple -e'print$_[rand(split(q.%%\n.,
get(q{http://cpan.org/misc/japh})))]'
_______________________________________________
RLUG mailing list
[email protected]
http://lists.lug.ro/mailman/listinfo/rlug
