Konverze cp-1250 na iso-8859-2

[Ing. Vlastimil Pospichal]

> nevite nekdo jak prevest soubor v nemz je cestina k kodovani
> cp-1250 na iso-8859-2 ??
> Jedna se o obycejny txt soubor bez formatovani.

Zkus tohle:

#!/usr/bin/perl

if ($ARGV[0] eq 'win')
{
    while (<STDIN>)
    {
        s/\'9e/\'be/gi;
        s/\'9d/\'bb/gi;
        s/\'9a/\'b9/gi;
        s/\'8e/\'ae/gi;
        s/\'8a/\'a9/gi;
        s/\'8d/\'ab/gi;
        print;
    }
}
else
{
    while (<STDIN>)
    {
        s/\'be/\'9e/gi;
        s/\'bb/\'9d/gi;
        s/\'b9/\'9a/gi;
        s/\'ae/\'8e/gi;
        s/\'a9/\'8a/gi;
        s/\'ab/\'8d/gi;
        print;
    }
}



Ing. Vlastimil Pospichal
mailto:vpospichal na centrum.cz
http://www.hoteldrnholec.cz
http://pospichal.hyperlink.cz

Proc kupovat MS Windows, kdyz existuji skutecne operacni systemy?