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 02:33 | Komunita

    V Amsterdamu probíhá Blender Conference 2025. Videozáznamy přednášek lze zhlédnout na YouTube. V úvodní keynote Ton Roosendaal oznámil, že k 1. lednu 2026 skončí jako chairman a CEO Blender Foundation. Tyto role převezme současný COO Blender Foundation Francesco Siddi.

    Ladislav Hagara | Komentářů: 0
    dnes 02:22 | Zajímavý článek

    The Document Foundation, organizace zastřešující projekt LibreOffice a další aktivity, zveřejnila výroční zprávu za rok 2024.

    ZCR | Komentářů: 0
    včera 17:33 | Nová verze

    Byla vydána nová stabilní verze 7.6 webového prohlížeče Vivaldi (Wikipedie). Postavena je na Chromiu 140. Přehled novinek i s náhledy v příspěvku na blogu.

    Ladislav Hagara | Komentářů: 0
    včera 16:22 | Nová verze

    Byla vydána verze 1.90.0 programovacího jazyka Rust (Wikipedie). Podrobnosti v poznámkách k vydání. Vyzkoušet Rust lze například na stránce Rust by Example.

    Ladislav Hagara | Komentářů: 0
    včera 16:11 | Nová verze

    GNUnet (Wikipedie) byl vydán v nové major verzi 0.25.0. Jedná se o framework pro decentralizované peer-to-peer síťování, na kterém je postavena řada aplikací.

    Ladislav Hagara | Komentářů: 0
    včera 12:11 | Nová verze

    Byla vydána nová major verze 7.0 živé linuxové distribuce Tails (The Amnesic Incognito Live System), jež klade důraz na ochranu soukromí uživatelů a anonymitu. Nově je postavena je na Debianu 13 (Trixie) a GNOME 48 (Bengaluru). Další novinky v příslušném seznamu.

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

    Společnost Meta na dvoudenní konferenci Meta Connect 2025 představuje své novinky. První den byly představeny nové AI brýle: Ray-Ban Meta (Gen 2), sportovní Oakley Meta Vanguard a především Meta Ray-Ban Display s integrovaným displejem a EMG náramkem pro ovládání.

    Ladislav Hagara | Komentářů: 0
    včera 01:11 | Nová verze

    Po půl roce vývoje od vydání verze 48 bylo vydáno GNOME 49 s kódovým názvem Brescia (Mastodon). S přehrávačem videí Showtime místo Totemu a prohlížečem dokumentů Papers místo Evince. Podrobný přehled novinek i s náhledy v poznámkách k vydání a v novinkách pro vývojáře.

    Ladislav Hagara | Komentářů: 11
    17.9. 16:22 | Nová verze

    Open source softwarový stack ROCm (Wikipedie) pro vývoj AI a HPC na GPU od AMD byl vydán ve verzi 7.0.0. Přidána byla podpora AMD Instinct MI355X a MI350X.

    Ladislav Hagara | Komentářů: 0
    17.9. 15:22 | Nová verze

    Byla vydána nová verze 258 správce systému a služeb systemd (GitHub).

    Ladislav Hagara | Komentářů: 6
    Jaké řešení používáte k vývoji / práci?
     (39%)
     (55%)
     (6%)
     (9%)
     (12%)
     (9%)
     (12%)
     (9%)
     (15%)
    Celkem 33 hlasů
     Komentářů: 5, poslední včera 22:30
    Rozcestník

    Dotaz: PERL - odstranění duplicit v poli a jejich spočítání

    5.12.2010 13:36 Pirkil
    PERL - odstranění duplicit v poli a jejich spočítání
    Přečteno: 569×
    Ahoj, učím se základy programování v PERLu a mám problém. Potřebuju napsat program na počítání písmen v textovém souboru. Došel jsem do fáze, kdy mám všechna písmena uložená v poli @abcd. (Je jich mnoho a opakují se.) Nyní potřebuju z pole dostat frekvenci jednotlivých písmen a uložit každé písmeno s jeho frekvencí do hashe. (Můžu to sice udělat tak, že dám vypsat prvky pole po řádcích, uložím výstup programu do textového souboru a potom zadám v shellu:

    sort soubor.txt | uniq -c

    ale, já bych chtěl posléze setřídit klíče hashe a udělat to celé v Perlu.)

    Díky moc za pomoc!

    Řešení dotazu:


    Odpovědi

    5.12.2010 14:17 Ondřej Kopka | skóre: 19 | blog: ondrejk
    Rozbalit Rozbalit vše Re: PERL - odstranění duplicit v poli a jejich spočítání
    to by melo resit neco v tomto smyslu:
    my $hash = {};
    foreach my $item (@array) {
     $hash->{$item}->{count}++;
    }
    
    Řešení 1× (buff)
    5.12.2010 14:18 Ondřej Kopka | skóre: 19 | blog: ondrejk
    Rozbalit Rozbalit vše Re: PERL - odstranění duplicit v poli a jejich spočítání
    vlastne by stacilo i $hash->{$item}++
    wamba avatar 6.12.2010 18:20 wamba | skóre: 38 | blog: wamba
    Rozbalit Rozbalit vše Re: PERL - odstranění duplicit v poli a jejich spočítání
    nemá to být $hash{$item}++ ?
    This would have been so hard to fix when you don't know that there is in fact an easy fix.
    wamba avatar 6.12.2010 18:22 wamba | skóre: 38 | blog: wamba
    Rozbalit Rozbalit vše Re: PERL - odstranění duplicit v poli a jejich spočítání
    odpovím si sám nemá, muselo by být my %hash místo my $hash
    This would have been so hard to fix when you don't know that there is in fact an easy fix.
    Řešení 1× (Pirkil (tazatel))
    5.12.2010 14:23 Ondřej Kopka | skóre: 19 | blog: ondrejk
    Rozbalit Rozbalit vše Re: PERL - odstranění duplicit v poli a jejich spočítání
    5.12.2010 19:35 Pirkil
    Rozbalit Rozbalit vše Re: PERL - odstranění duplicit v poli a jejich spočítání
    Nakonec jsem to udělal pomocí funkce map. Četl jsem o ní už dřív, ale nevěděl jsem, jak se používá. Souvisí to s tím, že moc neznám funkci operátoru $_ . Experimentální cestou jsem na to přišel. :) Díky za pomoc!
    5.12.2010 21:50 Jirka P
    Rozbalit Rozbalit vše Re: PERL - odstranění duplicit v poli a jejich spočítání
    Když už si hrát s mapem, proč to neudělat takto:
    my %counts=(map {($_, 0)} @arr);
    keys %counts;
    6.12.2010 01:21 Pirkil
    Rozbalit Rozbalit vše Re: PERL - odstranění duplicit v poli a jejich spočítání
    ...chtěl jsem říct funkci speciální proměnné... :)

    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.