--SPAM-- Re: utf8 data, il2 skript a Cz::Cstocs

[Tomáš Valoušek]

> Ona ale otázka je, proč chceš vlastně tu transliteraci do US-ASCII
> dělat, v roce 2007, kdy UTF-8 podporují snad všechny systémy, co jich kolem
> máme.

Kladl jsem si stejnou otazku, pak jsem si ale vzpomel, ze jsem pred par
lety resil to same. Potreboval jsem vystup na pokladni tiskarnu, ktera
cestinu neumi. Potykal jsem se stejnym problemem jako autor threadu,
nakonec jsem zvolil prasecke, ale pro dany ucel maximalne ucinne a
efektivni reseni. Funguje to dodnes (cca 5let)

#prevede UTF-8 cestinu na pure ASCII
sub preved
{
        $_[0] =~ s/ě/e/g;
        $_[0] =~ s/š/s/g;
        $_[0] =~ s/č/c/g;
        $_[0] =~ s/ř/r/g;
        $_[0] =~ s/ž/z/g;
        $_[0] =~ s/ý/y/g;
        $_[0] =~ s/á/a/g;
        $_[0] =~ s/í/i/g;
        $_[0] =~ s/é/e/g;
        $_[0] =~ s/ú/u/g;
        $_[0] =~ s/ů/u/g;
        $_[0] =~ s/Ě/E/g;
        $_[0] =~ s/Š/S/g;
        $_[0] =~ s/Č/C/g;
        $_[0] =~ s/Ř/R/g;
        $_[0] =~ s/Ž/Z/g;
        $_[0] =~ s/Ý/Y/g;
        $_[0] =~ s/Á/A/g;
        $_[0] =~ s/Í/I/g;
        $_[0] =~ s/É/E/g;
        $_[0] =~ s/Ú/U/g;
        $_[0] =~ s/Ů/U/g;
        $_[0] =~ s/ť/t/g;
        $_[0] =~ s/Ť/T/g;
        $_[0] =~ s/ó/o/g;
        $_[0] =~ s/Ó/O/g;
        $_[0] =~ s/ď/d/g;
        $_[0] =~ s/Ď/D/g;
        return $_[0];
}


-- 
Tomáš Valoušek
www.metalmex.cz