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í
×
    včera 01:00 | Komunita

    Debian dnes slaví 32 let. Ian Murdock oznámil vydání "Debian Linux Release" 16. srpna 1993.

    Ladislav Hagara | Komentářů: 9
    15.8. 17:44 | IT novinky

    Policisté zadrželi odsouzeného drogového dealera Tomáše Jiřikovského, který daroval ministerstvu spravedlnosti za tehdejšího ministra Pavla Blažka (ODS) bitcoiny v miliardové hodnotě, a zajistili i darovanou kryproměnu. Zadržení Jiřikovského může být podle ministerstva důležité k rozuzlení kauzy, která vypukla koncem května a vedla ke konci Blažka. Zajištění daru podle úřadu potvrzuje závěry dříve publikovaných právních

    … více »
    Ladislav Hagara | Komentářů: 6
    15.8. 13:44 | IT novinky

    Administrativa amerického prezidenta Donalda Trumpa jedná o možném převzetí podílu ve výrobci čipů Intel. Agentuře Bloomberg to řekly zdroje obeznámené se situací. Akcie Intelu v reakci na tuto zprávu výrazně posílily. Trump minulý týden označil Tana za konfliktní osobu, a to kvůli jeho vazbám na čínské společnosti, čímž vyvolal nejistotu ohledně dlouholetého úsilí Intelu o obrat v hospodaření. Po pondělní schůzce však prezident o šéfovi Intelu hovořil příznivě.

    Ladislav Hagara | Komentářů: 3
    15.8. 05:44 | IT novinky

    Společnost Purism stojící za linuxovými telefony a počítači Librem má nově v nabídce postkvantový šifrátor Librem PQC Encryptor.

    Ladislav Hagara | Komentářů: 10
    14.8. 18:00 | Nová verze

    VirtualBox, tj. multiplatformní virtualizační software, byl vydán v nové verzi 7.2. Přehled novinek v Changelogu. Vypíchnou lze vylepšené GUI.

    Ladislav Hagara | Komentářů: 0
    14.8. 14:11 | IT novinky

    Eric Migicovsky, zakladatel společnosti Pebble, v lednu oznámil, že má v plánu spustit výrobu nových hodinek Pebble s již open source PebbleOS. V březnu spustil předprodej hodinek Pebble Time 2 (tenkrát ještě pod názvem Core Time 2) za 225 dolarů s dodáním v prosinci. Včera představil jejich konečný vzhled (YouTube).

    Ladislav Hagara | Komentářů: 26
    14.8. 12:44 | Zajímavý software

    Byla oznámena nativní podpora protokolu ACME (Automated Certificate Management Environment) ve webovém serveru a reverzní proxy NGINX. Modul nginx-acme je zatím v preview verzi.

    Ladislav Hagara | Komentářů: 1
    14.8. 12:22 | Nová verze

    Vývojáři KDE oznámili vydání balíku aplikací KDE Gear 25.08. Přehled novinek i s náhledy a videi v oficiálním oznámení.

    Ladislav Hagara | Komentářů: 0
    13.8. 11:55 | IT novinky

    Společnost Perplexity AI působící v oblasti umělé inteligence (AI) podala nevyžádanou nabídku na převzetí webového prohlížeče Chrome internetové firmy Google za 34,5 miliardy dolarů (zhruba 723 miliard Kč). Informovala o tom včera agentura Reuters. Upozornila, že výše nabídky výrazně převyšuje hodnotu firmy Perplexity. Společnost Google se podle ní k nabídce zatím nevyjádřila.

    Ladislav Hagara | Komentářů: 5
    13.8. 04:33 | Bezpečnostní upozornění

    Intel vydal 34 upozornění na bezpečnostní chyby ve svých produktech. Současně vydal verzi 20250812 mikrokódů pro své procesory řešící 6 bezpečnostních chyb.

    Ladislav Hagara | Komentářů: 0
    Kolik tabů máte standardně otevřeno ve web prohlížeči?
     (52%)
     (19%)
     (4%)
     (5%)
     (2%)
     (1%)
     (1%)
     (16%)
    Celkem 402 hlasů
     Komentářů: 23, poslední 4.8. 13:01
    Rozcestník

    Dotaz: perl - vzor při vyhledávání v html

    5.7.2013 10:53 qweerty | skóre: 1
    perl - vzor při vyhledávání v html
    Přečteno: 252×
    Potřeboval bych pomoc s vyhledáním všech vzorů v html.

    Zpracovávám html stránku kterou mám načtenou v proměnné $page
    my $html = HTML::Tree->new();
    $html->parse($page);
    while ($html){
    my ($id) = $html->look_down( 'id','o012' );
    print encode_utf8($id->as_HTML ), "\n";
    }
    
    Potřeboval bych pomoc s nahrazením
    o012
    za něco jako
    /o\d{3}/
    , aby mi při nalezení vzoru bylo toto id vypsáno.

    Řešení dotazu:


    Odpovědi

    5.7.2013 11:10 vbar
    Rozbalit Rozbalit vše Re: perl - vzor při vyhledávání v html
    /o(\d{3})/ && print $1;
    wamba avatar 5.7.2013 13:55 wamba | skóre: 38 | blog: wamba
    Rozbalit Rozbalit vše Re: perl - vzor při vyhledávání v html
    look_down podporuje notaci s reg. objektem tak, že něco jako $html->look_down( 'id',qr{o\d{3}} ), ale ten příklad je celý nějaký divný. Co přesně má dělat?
    This would have been so hard to fix when you don't know that there is in fact an easy fix.
    pavlix avatar 5.7.2013 13:58 pavlix | skóre: 54 | blog: pavlix
    Rozbalit Rozbalit vše Re: perl - vzor při vyhledávání v html
    ale ten příklad je celý nějaký divný.
    Školní zadání?
    Já už tu vlastně ani nejsem. Abclinuxu umřelo.
    wamba avatar 5.7.2013 15:05 wamba | skóre: 38 | blog: wamba
    Rozbalit Rozbalit vše Re: perl - vzor při vyhledávání v html
    Že by byli někde tak "osvíceni", že by zadávali úkoly v Perl-u?
    This would have been so hard to fix when you don't know that there is in fact an easy fix.
    5.7.2013 15:39 qweerty | skóre: 1
    Rozbalit Rozbalit vše Re: perl - vzor při vyhledávání v html
    Dekuji, na toto jsem po zalozeni vlakna a cteni prisel.
    my ($id) = $tree->look_down( 'id',qr/o\d{3}/ );
    
    fungluje jak ma. Vypise prvni vyskyt podle reg.vyrazu.

    s Perlem zacinam uz tri mesice, chtel bych jeste v necem popostrcit

    jak mam toto vse zacyklovat tak aby mi to proslo pres celou stranku a vyhledalo vsechen vyskyt

    pomoci while mi to vypisuje jen prvni vyskyt hodnekrat zasebou
    while($tree){
    	my ($id) = $tree->look_down( 'id',qr/o\d{3}/ );
    	print encode_utf8($id->as_HTML) , "\n";
    }
    
    Řešení 1× (qweerty (tazatel))
    wamba avatar 5.7.2013 16:14 wamba | skóre: 38 | blog: wamba
    Rozbalit Rozbalit vše Re: perl - vzor při vyhledávání v html
    my @id = $tree->look_down( 'id',qr{o\d{3}}xms );
    foreach (@id) {
        say $_->as_HTML;
    }
    
    This would have been so hard to fix when you don't know that there is in fact an easy fix.
    5.7.2013 16:54 qweerty | skóre: 1
    Rozbalit Rozbalit vše Re: perl - vzor při vyhledávání v html
    Dekuji toto dela co potrebuji.

    mohl bych se zeptat proc tam pro uvozeni reg.vyrazu je {
    wamba avatar 5.7.2013 17:04 wamba | skóre: 38 | blog: wamba
    Rozbalit Rozbalit vše Re: perl - vzor při vyhledávání v html
    protože to zápis umožňuje :) jen má preference s m,qr,s lze použít libovolný znak nebo závorky tedy lze psát např. m#a.*#; s[ahoj][cau]g atd. přičemž se doporučuje používat buď / / nebo { }
    This would have been so hard to fix when you don't know that there is in fact an easy fix.
    5.7.2013 17:10 qweerty | skóre: 1
    Rozbalit Rozbalit vše Re: perl - vzor při vyhledávání v html
    Dalsi a posledni dotaz. Ta chyba co jsem mel v zapisu je ze jsem se neodkazoval na hash @ ale na promenou $ ?
    wamba avatar 5.7.2013 17:48 wamba | skóre: 38 | blog: wamba
    Rozbalit Rozbalit vše Re: perl - vzor při vyhledávání v html
    s @ na začátku je pole(array) ty si tam měl ($id) což je list, s prvním prvkem $id tedy si dostal sice pole, ale při porovnání se vzal jen první prvek, což v tomto případě (a shodou okolností) je to stejné jako kdyby si tam napsal jen $id

    Podobně by si mohl ($id1,$id2) dostat první dva prvky.

    rozdíl mezi $id a ($id) lze vidět třeba tady
    my @array=('a','b');
    my $id = @array;
    my ($id)=@array;
    
    kdy v tom případě bude v $id počet prvků(2) a v tom druhém první prvek('a') jenom upozorňuji, že při zápisu my $id =('a','b') by byl v $id poslední prvek list tedy 'b'. :)

    navíc si tam měl while přes $tree, které se v té smyčce nemění tak záleží čeho si chtěl dosáhnout
    This would have been so hard to fix when you don't know that there is in fact an easy fix.
    5.7.2013 15:08 qweerty | skóre: 1
    Rozbalit Rozbalit vše Re: perl - vzor při vyhledávání v html
    no ne tak uplne presne, zadne skolni zadani, jen se snazim hrat si kdyz je ten svatek

    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.