abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
    dnes 04:55 | Nová verze

    Byla vydána verze 4.0 multiplatformního integrovaného vývojového prostředí (IDE) pro rychlý vývoj aplikaci (RAD) ve Free Pascalu Lazarus (Wikipedie). Přehled novinek v poznámkách k vydání. Využíván je Free Pascal Compiler (FPC) 3.2.2.

    Ladislav Hagara | Komentářů: 0
    dnes 00:33 | Komunita

    Podpora Windows 10 končí 14. října 2025. Připravovaná kampaň Konec desítek (End of 10) může uživatelům pomoci s přechodem na Linux.

    Ladislav Hagara | Komentářů: 4
    včera 23:22 | Pozvánky

    Již tuto středu proběhne 50. Virtuální Bastlírna, tedy dle římského číslování L. Bude L značit velikost, tedy více diskutujících než obvykle, či délku, neboť díky svátku lze diskutovat dlouho do noci? Bude i příští Virtuální Bastlírna virtuální nebo reálná? Nejen to se dozvíte, když dorazíte na diskuzní večer o elektronice, softwaru, ale technice obecně, který si můžete představit jako virtuální posezení u piva spojené s učenou

    … více »
    bkralik | Komentářů: 0
    včera 22:33 | IT novinky

    Dle plánu dnes končí služba Skype. Uživatelé mohou pokračovat v Microsoft Teams.

    Ladislav Hagara | Komentářů: 0
    včera 21:44 | IT novinky

    Český statistický úřad rozšiřuje Statistický geoportál o Datový portál GIS s otevřenými geografickými daty. Ten umožňuje stahování datových sad podle potřeb uživatelů i jejich prohlížení v mapě a přináší nové možnosti v oblasti analýzy a využití statistických dat.

    Ladislav Hagara | Komentářů: 1
    včera 12:33 | Zajímavý projekt

    Kevin Lin zkouší využívat chytré brýle Mentra při hraní na piano. Vytváří aplikaci AugmentedChords, pomocí které si do brýlí posílá notový zápis (YouTube). Uvnitř brýlí běží AugmentOS (GitHub), tj. open source operační systém pro chytré brýle.

    Ladislav Hagara | Komentářů: 1
    včera 12:11 | Pozvánky

    Jarní konference EurOpen.cz 2025 proběhne 26. až 28. května v Brandýse nad Labem. Věnována je programovacím jazykům, vývoji softwaru a programovacím technikám.

    Ladislav Hagara | Komentářů: 0
    4.5. 21:44 | Komunita

    Na čem aktuálně pracují vývojáři GNOME a KDE Plasma? Pravidelný přehled novinek v Týden v GNOME a Týden v KDE Plasma.

    Ladislav Hagara | Komentářů: 0
    4.5. 14:22 | IT novinky

    Před 25 lety zaplavil celý svět virus ILOVEYOU. Virus se šířil e-mailem, jenž nesl přílohu s názvem I Love You. Příjemci, zvědavému, kdo se do něj zamiloval, pak program spuštěný otevřením přílohy načetl z adresáře e-mailové adresy a na ně pak „milostný vzkaz“ poslal dál. Škody vznikaly jak zahlcením e-mailových serverů, tak i druhou činností viru, kterou bylo přemazání souborů uložených v napadeném počítači.

    Ladislav Hagara | Komentářů: 29
    3.5. 22:33 | Nová verze

    Byla vydána nová major verze 5.0.0 svobodného multiplatformního nástroje BleachBit (GitHub, Wikipedie) určeného především k efektivnímu čištění disku od nepotřebných souborů.

    Ladislav Hagara | Komentářů: 2
    Jaký filesystém primárně používáte?
     (58%)
     (1%)
     (8%)
     (21%)
     (4%)
     (2%)
     (2%)
     (0%)
     (1%)
     (3%)
    Celkem 526 hlasů
     Komentářů: 22, poslední včera 10:06
    Rozcestník

    Dotaz: Perl - utf - cestine

    10.1.2017 13:21 Stem
    Perl - utf - cestine
    Přečteno: 472×
    Ahoj, marne se snazim rozjet cestinu v Perlu (fakt nevidim, v cem je prolem)
    #!/usr/bin/perl
    
    use utf8;
    use locale;
    
    binmode STDIN, ":utf8";
    binmode STDOUT, ":utf8";
    
    
    print "Příliš žluťoučký kůň úpěl ďábelské ódy";
    
    vytiskne neco jako: PříliÅ¡ ÅŸluÅ¥ouÄ srkÜ kůŠúpÄ ÄÃ¡belské ódy,

    takze nic moc.

    locele:
    LANG=en_GB.UTF-8
    LC_CTYPE="en_GB.UTF-8"
    LC_NUMERIC="en_GB.UTF-8"
    LC_TIME="en_GB.UTF-8"
    LC_COLLATE="en_GB.UTF-8"
    LC_MONETARY="en_GB.UTF-8"
    LC_MESSAGES=en_GB.UTF-8
    LC_PAPER="en_GB.UTF-8"
    LC_NAME="en_GB.UTF-8"
    LC_ADDRESS="en_GB.UTF-8"
    LC_TELEPHONE="en_GB.UTF-8"
    LC_MEASUREMENT="en_GB.UTF-8"
    LC_IDENTIFICATION="en_GB.UTF-8"
    LC_ALL=/code>
    locale -a:
    C
    cs_CZ.utf8
    en_GB.utf8
    POSIX
    [xx@arch test]$ echo "Príliš žlutoucký kun úpel dábelské ódy" Príliš žlutoucký kun úpel dábelské ódy - to zase neni tak spatne

    jinak pouzivam archlinux, nejaka rada?

    Dekuju


    Řešení dotazu:


    Odpovědi

    10.1.2017 14:05 tom
    Rozbalit Rozbalit vše Re: Perl - utf - cestine
    Ten skript samotnej je ulozenej v UTF-8, vypise ho cat dobre?
    10.1.2017 14:37 Stem
    Rozbalit Rozbalit vše Re: Perl - utf - cestine
    Ja bych dal rudu do ohne za to ze je ulozeny v utf8:
    file -i test.pl 
    test.pl: text/x-perl; charset=utf-8
    i Geany mam nastaveny na utf8.

    nicmene cat vytiskne spatny kodovani.

    wamba avatar 10.1.2017 15:02 wamba | skóre: 38 | blog: wamba
    Rozbalit Rozbalit vše Re: Perl - utf - cestine
    Já bych si tipnul, že jste tu frázi někde okopíroval, kde nebyla utf-8, ale v ISO-8859-2. Protože když ten program zkopíruji tak mě to dělá totéž, ale následující funguje
    use 5.010;
    use utf8;
    
    binmode STDOUT, ':encoding(UTF-8)';
    say 'Příliš';
    
    This would have been so hard to fix when you don't know that there is in fact an easy fix.
    10.1.2017 15:49 Stem
    Rozbalit Rozbalit vše Re: Perl - utf - cestine
    jsem si myslel, ze v jednom souboru muze byt jen jedno kodovani a kdyz neni, zmrsi se to hned pri ulozeni. Ale budiz, treba ne.

    Ale mate pravdu, text jsem zkopiroval. Ale i kdyz ho napisu rucne, dosahnu stejne spatneho vysledku:
    #!/usr/bin/perl
    
    use utf8;
    use locale;
    
    binmode STDIN, ":utf8";
    binmode STDOUT, ":utf8";
    
    my $string1 = "příliš";   # napsano rucne
    my $string2 = "Příliš žluťoučký kůň úpěl ďábelské ódy";  # copy pase....
    
    print "string1: ".$string1." - ".utf8::is_utf8($string1)."\n\n";
    print "string2: ".$string2." - ".utf8::is_utf8($string1)."\n\n";
    
    
    perl test.pl 
    string1: příliš - 1
                                kÜ kůŠúpÄ ÄÃ¡belské ódy - 1
    string2: PříliÅ¡ ÅŸluÅ¥ouÄ
    mam relativne novou instalaci archu, takze jsem mohl neco udelat spatne uz pri instalaci. Ale nevim co.

    10.1.2017 15:53 Stem
    Rozbalit Rozbalit vše Re: Perl - utf - cestine
    Pokud zkusim vas ukazkovej kod, dopadne to stejne spatne.

    Vazne si rikam, ze to muze byt vic system nez Perl. Bezne mam prostredi nastaveny na anglictinu, takze bych to jindy asi ani nepoznal.
    10.1.2017 15:58 krocan
    Rozbalit Rozbalit vše Re: Perl - utf - cestine
    A jen zopakuji otazku - co ten skript, vypise ho cat dobre?
    10.1.2017 16:10 Stem
    Rozbalit Rozbalit vše Re: Perl - utf - cestine
    jednoznacne ne
     $ cat test.pl 
    #!/usr/bin/perl
    
    use utf8;
    use locale;
    
    binmode STDIN, ":utf8";
    binmode STDOUT, ":utf8";
    
    my $string1 = "příliÅ¡";   # napkÜ kůŠúpÄ ÄÃ¡belské ódy";  # copy pase....
    my $string2 = "PříliÅ¡ ÅŸluÅ¥ouÄ
    print "string1: ".$string1." - ".utf8::is_utf8($string1)."\n\n";
    print "string2: ".$string2." - ".utf8::is_utf8($string1)."\n\n";
    10.1.2017 16:14 Stem
    Rozbalit Rozbalit vše Re: Perl - utf - cestine
    Aaa, uz je to doma. Spatny kodovani v terminalu:(

    Kdo by to cekal. Nastavil jsem terminal na UTF8 a svet je zase v poradku.

    Dekuji za pomoc.
    10.1.2017 16:16 Marek Sulik
    Rozbalit Rozbalit vše Re: Perl - utf - cestine
    No ja som skusal, ten skript spustit v UXTERM, XTERM a aj RXVT, a vsetky znaky mi zobrazuje spravne. a v ".Xdefaults" mam take nastavene fonty:

    XTerm*font: -*-*-medium-r-*-*-15-*-*-*-*-*-iso10646-*

    XTerm*boldfont: -*-terminus-medium-r-bold-*-15-*-*-*-*-*-*

    UXTerm*font: -*-*-medium-r-*-*-15-*-*-*-*-*-iso10646-*

    UXTerm*boldFont: -*-terminus-bold-r-normal-*-15-*-*-*-*-*-iso10646-*

    Rxvt*font: -*-fixed-medium-r-*-*-15-*-*-*-*-*-iso10646-*

    Založit nové vláknoNahoru

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.