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í
×

19.1. 18:55 | Komunita

NHSbuntu (Joinup, prezentace) měla být z Ubuntu vycházející linuxová distribuce přizpůsobená pro potřeby britské Národní zdravotní služby (NHS). NHS se název nelíbil, nejednalo se o oficiální projekt NHS, a proto bylo NHSbuntu v září loňského roku přejmenováno na NHoS. Vývojáři NHoS tento týden oznámili, že NHS se nelíbí ani název NHoS a už nemají sílu na další přejmenování a pokračování v projektu. Dodávají, že několik jednání s vedením

… více »
Ladislav Hagara | Komentářů: 2
19.1. 18:44 | Pozvánky

Koncem ledna, 29. 1. 2018 od 17 do 20 hodin se v Akademii CZ.NIC uskuteční večer s Turrisem.

Co bude na programu?… více »
Miška | Komentářů: 3
19.1. 18:33 | Pozvánky

Na tri dni sa hlavné mesto Slovenska po tretíkrát zmení na miesto s najväčšou koncentráciou profesionálnych programátorov, systémových administrátorov, učiteľov informatiky aj technologických nadšencov. Hlavným lákadlom bude konferencia PyCon SK 2018, určená záujemcom o Python, jeden z najpopulárnejších programovacích jazykov na svete.

… více »
RicCo386 | Komentářů: 1
19.1. 18:22 | Pozvánky

Letošní ročník konference Prague PostgreSQL Developer Day se koná ve dnech 14. 2. a 15. 2. 2018. Zveřejněn byl program s přednáškami a školeními. Otevřena byla také registrace na konferenci.

TomasVondra | Komentářů: 0
19.1. 11:33 | Komunita

Společnost Canonical stojící za linuxovou distribucí Ubuntu oznámila dostupnost nástroje pro týmovou spolupráci Slack (Wikipedie) ve formátu snap. Instalovat jej lze ze Snapcraftu. Slack pro Linux je dostupný také ve formátu klasických balíčků pro Ubuntu a Fedoru.

Ladislav Hagara | Komentářů: 9
18.1. 17:33 | Nová verze

Po roce vývoje od vydání verze 2.0 a 6 000 změnách byla vydána nová stabilní verze 3.0 softwaru, který vytváří aplikační rozhraní umožňující chod aplikací pro Microsoft Windows také pod GNU/Linuxem, Wine (Wikipedie). Z novinek lze zdůraznit například podporu Direct3D 10 a 11. Podrobnosti v poznámkách k vydání.

Ladislav Hagara | Komentářů: 14
18.1. 13:44 | Zajímavý projekt

V říjnu loňského roku úspěšně skončila kampaň na podporu chytrého telefonu Librem 5, jenž by měl respektovat bezpečnost, svobodu a soukromí uživatelů. Společnost Purism informuje o aktuálním vývoji tohoto telefonu. Místo plánovaného SoC i.MX6 by měl být použit úspornější i.MX8.

Ladislav Hagara | Komentářů: 4
18.1. 12:33 | Zajímavý projekt

V květnu loňského roku měl na YouTube premiéru krátký animovaný film Agent 327: Operation Barbershop. Blender Animation Studio včera zveřejnilo alternativní konec tohoto filmu.

Ladislav Hagara | Komentářů: 0
18.1. 05:55 | Bezpečnostní upozornění

Společnost Oracle vydala čtvrtletní bezpečnostní aktualizaci svých softwarových produktů (CPU, Critical Patch Update). Opraveno bylo celkově 237 bezpečnostních chyb. V Oracle Java SE je například opraveno 21 bezpečnostních chyb. Vzdáleně zneužitelných bez autentizace je 18 z nich. V Oracle MySQL je opraveno 25 bezpečnostních chyb. Vzdáleně zneužitelných bez autentizace je 6 z nich.

Ladislav Hagara | Komentářů: 0
17.1. 20:55 | Komunita

Linux ve VirtualBoxu nebude potřebovat Přídavky pro hosta (Guest Additions). Budou součástí linuxového jádra. Ovladač vboxguest by se měl dostat do Linuxu 4.16. Ovladač vboxsf by měl následovat.

Ladislav Hagara | Komentářů: 27
Jak se vás potenciálně dotkne trend odstraňování analogového audio konektoru typu 3,5mm jack z „chytrých telefonů“?
 (7%)
 (1%)
 (1%)
 (1%)
 (77%)
 (13%)
Celkem 1349 hlasů
 Komentářů: 53, poslední 17.1. 16:55
    Rozcestník

    Dotaz: PERL - Získání dat mezi danými TAGY z PHP souboru

    28.9.2009 16:51 saky | skóre: 1
    PERL - Získání dat mezi danými TAGY z PHP souboru
    Přečteno: 511×

     Dobrý den. 

    Potřeboval bych dostat z php stránky informace obsažené mezi danými TAGy. 

    Mám nyní tento kód: 

    my $url = 'http://www.example.com/data.php'; 

    use LWP::Simple; 

    my $content = get $url; 

    my @slovo = split(" ", $content); 

    print "Celý soubor obsahuje: $content \n"; 

     

     

    Jde však o poměrně dlouhou stránku a text který chci získat do proměnné $obsah je uzavřen uprostřed stránky, 

    mezi < div id="dulezity_text">...Potřebný text...< /div>. 

    Lze nějak získat vše mezi těmito tagy?

     

    Moc děkuji všem :o)

     

     

     

     


    Řešení dotazu:


    Odpovědi

    28.9.2009 17:24 Vojtěch Horký | skóre: 39 | blog: Vojtův zápisník | Praha
    Rozbalit Rozbalit vše Re: PERL - Získání dat mezi danými TAGY z PHP souboru
    A nějaký dobře mířený regulární výraz by nestačil? Něco jako
    if $content =~ /<div\s+id="dulezity_text"\s+>(.*)<\/div>/ {
        my $text = $1;
    } else {
        # není tam
    }
    Ale jestli v tom divu může být další div, tak bude možná lepší nějaký parser pro HTML než tvořit složité výrazy.
    I am always ready to learn although I do not always like to be taught. (W. Churchill)
    28.9.2009 17:49 saky | skóre: 1
    Rozbalit Rozbalit vše Re: PERL - Získání dat mezi danými TAGY z PHP souboru

     Děkuji moc, to je přesně to co jsem hledal, avšak bohužel mi to stejně nefunguje..

    Mám to ještě zabaleno a posláno na příkaz stránka.. Možná mám chybu ve formátu. V kódu mám nyní toto:

     

     

          if ($arg =~ /!stranka/i) {

        my $url = 'http://www.example.com/data.php';

          use LWP::Simple;

        my $content = get $url;

        my @slovo = split(" ", $content);

       if $content =~ /<div\s+id="predpoved_nej_text"\s+>(.*)<\/div>/ {

        my $text = $1;

        print "Soubor obsahuje: $text \n";

         } else {

        print "Soubor neobsahuje žádné informace \n";   

        }  

         } 

     

    Nevíte, kde je chyba? .-)

    Řešení 1× (saky (tazatel))
    28.9.2009 18:34 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: PERL - Získání dat mezi danými TAGY z PHP souboru
    /<div\s+id="dulezity_text"\s*>(.*?)<\/div>/
    In Ada the typical infinite loop would normally be terminated by detonation.
    28.9.2009 18:35 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: PERL - Získání dat mezi danými TAGY z PHP souboru
    Jo, a obvykle je dobré za to dát /xms nebo aspoň /ms, protože spoléhat se na konce řádků v HTML není dobré :)
    In Ada the typical infinite loop would normally be terminated by detonation.
    28.9.2009 20:39 saky | skóre: 1
    Rozbalit Rozbalit vše Re: PERL - Získání dat mezi danými TAGY z PHP souboru

     Bohužel ani tak to nejede... Aplikace ihned spadne i po nahrazení regulérních výrazů dle Vás..

    29.9.2009 07:27 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: PERL - Získání dat mezi danými TAGY z PHP souboru
    Možná by bylo dobrý nějak popsat jaký text dostanete a co přesně z něho chcete dostat a co to znamená že spadne... takhle je to střílení do hnoje naslepo...
    In Ada the typical infinite loop would normally be terminated by detonation.
    Řešení 1× (saky (tazatel))
    29.9.2009 14:39 NeoV | skóre: 23
    Rozbalit Rozbalit vše Re: PERL - Získání dat mezi danými TAGY z PHP souboru

     S poslednymi upravami je regex urcite spravny a plne funkcny... mozno by som este upravil moznost vyskytu oboch typov uvodzoviek:

        $content =~ /<div\s+id=["']dulezity_text["']\s*>(.*?)<\/div>/ms

     

    btw. ste si isty, ze div element neobsahuje ine atributy ??? Pretoze ak ano (napr. style alebo class,...) tak potom je treba pouzit regex v style:

        $content =~ /<div[^>]+?id=["']dulezity_text["'][^>]*>(.*?)<\/div>/ms

     

    Vysledok je potom ulozeny do $1 build-in premennej Perlu...

    29.9.2009 14:48 petr_p | skóre: 59 | blog: pb
    Rozbalit Rozbalit vše Re: PERL - Získání dat mezi danými TAGY z PHP souboru
    Pak tam taky může být atribut id, lang, base, title a kdo ví co ještě. Jak říkám, hrabat se v (X)HTML pomocí řádkové orientovaného editoru je hloupost.
    29.9.2009 15:08 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: PERL - Získání dat mezi danými TAGY z PHP souboru
    Jenže tohle není řádkově orientovaný editor. Extrakce drobných pasáží z HTML pomocí regexpů v Perlu je podstatně jednodušší a rychlejší, než stavět parser na potažmo špatný vstup, protože co si budeme nalhávat, dobrá půlka stránek validátorem nejprojde.
    In Ada the typical infinite loop would normally be terminated by detonation.
    29.9.2009 16:08 petr_p | skóre: 59 | blog: pb
    Rozbalit Rozbalit vše Re: PERL - Získání dat mezi danými TAGY z PHP souboru
    Právě že HTML::Parser stráví i špatný kód. Jasně, pokud programátor ví, jaký bude vstup, tak regulární výraz je odpovídající nástroj. Pokud ale chcete pokrýt volnost HTML (kam volitelné atributy podle mě patří), tak je lepší použít Parser.
    29.9.2009 16:32 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: PERL - Získání dat mezi danými TAGY z PHP souboru
    Volitelné atributy vyřídíte pomocí .*? nebo něčeho takového; s regexpama můžete dosáhnout dost velké adaptivity proti efektu autorově rupnutí v kouli, případně extrahovat jednoduše několik nesouvisejících věcí do pole, atp.

    Písmenko "e" v Perl je od "extract", a operátor =~ by se neměl podceňovat.
    In Ada the typical infinite loop would normally be terminated by detonation.
    Řešení 1× (saky (tazatel))
    30.9.2009 14:53 ams
    Rozbalit Rozbalit vše Re: PERL - Získání dat mezi danými TAGY z PHP souboru

    Chybi Vam zavorky kolem podminky v 'if'. Musi byt

    if ( $content =~ /tady je ten regexp/ ) {

    } else {

    }

    30.9.2009 15:26 NeoV | skóre: 23
    Rozbalit Rozbalit vše Re: PERL - Získání dat mezi danými TAGY z PHP souboru

     hehe dobry postreh.. ale ved na toto mu predsa musel priamo poukazal kompilator hlaskou v style:

    syntax error at FILE line N , near "if $content"

    , alebo nieco podobne :-)

    29.9.2009 11:59 petr_p | skóre: 59 | blog: pb
    Rozbalit Rozbalit vše Re: PERL - Získání dat mezi danými TAGY z PHP souboru
    Doporučuji použít HTML::Parser. Ušetříte si spoustu nervů se špatně utvořeným HTML.

    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.