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 19:22 | Nová verze

    Byla vydána nová major verze 5.0 účetního softwaru GnuCash (Wikipedie). Ve formátu Flatpak je již k dispozici na Flathubu.

    Ladislav Hagara | Komentářů: 0
    dnes 18:33 | Nová verze

    Na GOG.com běží Spring Sale. Při té příležitosti lze získat zdarma počítačovou hru Alwa's Awakening (ProtonDB).

    Ladislav Hagara | Komentářů: 0
    dnes 16:55 | Nová verze

    Byla vydána verze 3.28.0 2D CAD (computer-aided design) softwaru QCAD (Wikipedie). Přehled novinek v Changelogu.

    Ladislav Hagara | Komentářů: 0
    dnes 08:00 | IT novinky

    Změna ve vedení společnosti SUSE. Dosavadní CEO Melissa Di Donato odstoupila. Od 1. května je novým CEO Dirk-Peter van Leeuwen, bývalý Senior Vice President a General Manager ve společnosti Red Hat.

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

    CyberChef je webová aplikace pro analýzu dat a jejich kódování a dekódování, šifrování a dešifrování, kompresi a dekompresi, atd. Často je využívaná při kybernetických cvičeních a CTF (Capture the Flag). Vydána byla nová major verze 10 (aktuálně 10.4.0). Přehled novinek v Changelogu.

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

    UBports, nadace a komunita kolem Ubuntu pro telefony a tablety Ubuntu Touch, vydala Ubuntu Touch OTA-1 Focal založené na Ubuntu 20.04 Focal Fossa.

    Ladislav Hagara | Komentářů: 0
    včera 17:11 | IT novinky

    Společnost Red Hat slaví 30 let.

    Ladislav Hagara | Komentářů: 2
    včera 15:22 | IT novinky

    Ve věku 91 let zemřel izraelský informatik Ja'akov Ziv, spolutvůrce bezztrátových kompresních algoritmů LZ77, LZ78 a LZW (Lempel–Ziv–Welch).

    Ladislav Hagara | Komentářů: 0
    včera 11:00 | IT novinky

    Byla představena nová Arduino deska Arduino UNO R4 s 32bitovým MCU RA4M1 (Arm Cortex-M4). Desku lze zatím získat pouze v rámci early access programu.

    Ladislav Hagara | Komentářů: 0
    26.3. 18:33 | Nová verze

    Operační systém MidnightBSD, fork FreeBSD optimalizovaný pro desktop s prostředím Xfce, byl vydán ve verzi 3.0. Přehled novinek v poznámkách k vydání.

    Ladislav Hagara | Komentářů: 9
    Používáte WSL (Windows Subsystem for Linux)?
     (73%)
     (12%)
     (4%)
     (11%)
    Celkem 358 hlasů
     Komentářů: 7, poslední dnes 17:34
    Rozcestník


    Dotaz: Perl a rozdělení textu

    23.5.2010 19:37 LuRy | skóre: 12
    Perl a rozdělení textu
    Přečteno: 305×
    Ahoj, Pár dní řeším problém jak rozdělit text podle regulerniho vyrazu v momente kdyz se v souboru daný text obevuje víckrát vyhovujivcí stejnému reg. výrazu. "=~" mi vypíše pokaždé jenom první výskyt. Zkouším to mimo na příkladu dole, kde potrebuju z retezce vypsat pouze to co je mezi dvojteckama a podari se mi vypsat jenom 3434 (udělat reg. vyraz pro cely tento retezc mi moc nepomuze vzhledem k tomu ze nemuzu predpovidat kolik tech cisel mezi dvojteckami bude, tohle je jen pouze testovaci priklad) zkousel sem i ty rozdelovaci podminky pod sebe nebo i grepem kterym se mi to moc nepovedlo, nejlepsi vystup by byl do pole nevíte někdo jak na to?

    $cislosmajlu = "---:3434: dasdas :2343:dasd a :5678:adasd dsadas:43587:aaaaaaa:23456879:"; if ($cislosmajlu =~ /(:([0-9]+):)+/) { print $1 ;}

    Řešení dotazu:


    Odpovědi

    23.5.2010 20:06 Ondřej Kopka | skóre: 20 | blog: ondrejk
    Rozbalit Rozbalit vše Re: Perl a rozdělení textu
    Ahoj, zkus split
    23.5.2010 20:14 LuRy | skóre: 12
    Rozbalit Rozbalit vše Re: Perl a rozdělení textu
    taky me napad split jenze podle ceho to rozdelit splitem to uz sem nevykoumal.. mozna podle tech dvojtecek jenze to bude desnej chaos z toho vybrat to co fakt potrebujes
    23.5.2010 20:29 buff | skóre: 10 | blog: buff
    Rozbalit Rozbalit vše Re: Perl a rozdělení textu
    A co vlastně potřebuješ? :-) Jen to, co je mezi dvojtečkami a zároveň číslo? Nebo...?
    23.5.2010 21:14 buff | skóre: 10 | blog: buff
    Rozbalit Rozbalit vše Re: Perl a rozdělení textu

    Kdyžtak toto:

    $cislosmajlu = "---:3434: dasdas :2343:dasd a :5678:adasd dsadas:43587:aaaaaaa:23456879:";
    map {print "$_\n"} grep {m/[0-9]+/} split(':', $cislosmajlu);
    wamba avatar 23.5.2010 20:29 wamba | skóre: 38 | blog: wamba
    Rozbalit Rozbalit vše Re: Perl a rozdělení textu
    no teoreticky by šlo

    $cislosmajlu = "---:3434: dasdas :2343:dasd a :5678:adasd dsadas:43587:aaaaaaa:23456879:";

    while ( $cislosmajlu =~ /(:([0-9]+):)+/g ) { print $1 ;}

    This would have been so hard to fix when you don't know that there is in fact an easy fix.
    wamba avatar 23.5.2010 20:50 wamba | skóre: 38 | blog: wamba
    Rozbalit Rozbalit vše Re: Perl a rozdělení textu
    popřípadě
    
    my $cislo_smajlu
        = "---:3434: dasdas :2343:dasd a :5678:adasd dsadas:43587:aaaaaaa:23456879:";
    
    foreach my $cislo (
        $cislo_smajlu =~ m/(?: :( [0-9]+ ): )+/xg
        ) {
            print "$cislo ";
    }
    
    This would have been so hard to fix when you don't know that there is in fact an easy fix.
    23.5.2010 21:09 LuRy | skóre: 12
    Rozbalit Rozbalit vše Re: Perl a rozdělení textu
    jo diky moc , jeslit bych te mohl pozadat vysvetlil bys mi ty znaky za a pres / ? m/ /xg hledal sem to ale poradny vysvetleni nebo prehled vsech sem nenasel pouzivam /i nebo bez pismen jinak ti davam bod diky moc
    wamba avatar 23.5.2010 21:21 wamba | skóre: 38 | blog: wamba
    Rozbalit Rozbalit vše Re: Perl a rozdělení textu
    teď jsem si všiml že tam mám závorku zbytečnou (nechal jsem se unést vaším řešením) stačí:

    m/:( [0-9]+ ):/xg

    m je tam více méně zbytečný, muselo by tam být v případě např:

    m{ :( [0-9]+ ): }xg

    x umožňuje (pro přehlednost) vkládat do regulárního výrazu mezery a g je "global" tedy najdi všechny výrazy nejen první
    This would have been so hard to fix when you don't know that there is in fact an easy fix.
    Řešení 2× (misch, buff)
    23.5.2010 22:06 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: Perl a rozdělení textu
    Jo, ale nepoužil bych to ve while, ale prostě
    @smajly = (text =~ /:([0-9]+):/g);
    In Ada the typical infinite loop would normally be terminated by detonation.

    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.