abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×

    včera 21:11 | Nová verze

    Armbian, tj. linuxová distribuce založená na Debianu a Ubuntu optimalizovaná pro jednodeskové počítače na platformě ARM a RISC-V, ke stažení ale také pro Intel a AMD, byl vydán ve verzi 23.11 Topi. Přehled novinek v Changelogu.

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

    Po 4 měsících vývoje byla vydána nová verze 4.2 multiplatformního open source herního enginu Godot (Wikipedie, GitHub). Přehled novinek i s náhledy v příspěvku na blogu a na YouTube.

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

    Byla vydána nová stabilní verze 23.11 linuxové distribuce NixOS (Wikipedie). Její kódové označení je Tapir. Podrobný přehled novinek v poznámkách k vydání. O balíčky se v NixOS stará správce balíčků Nix.

    Ladislav Hagara | Komentářů: 0
    včera 14:11 | Bezpečnostní upozornění

    Národní úřad pro kybernetickou a informační bezpečnost (NÚKIB) upozorňuje na hrozbu spojenou s používáním mobilní aplikace WeChat a její čínské verze Weixin (dále jen WeChat). Ta sbírá velký objem uživatelských dat, a právě to by – v kombinaci se způsobem jejich sběru – mohlo sloužit k přesnému zacílení kybernetických útoků.

    Ladislav Hagara | Komentářů: 0
    včera 14:00 | Zajímavý software

    LibreQoS je svobodná aplikace vhodná pro poskytovatele internetové připojení pro rezervaci a řízení datových toků zákazníků (QoS - Quality of Service, QoE - Quality of Experience). Zdrojové kódy jsou k dispozici na GitHubu pod licencí GPLv2. Aktuální verze je 1.4.

    Ladislav Hagara | Komentářů: 0
    29.11. 23:22 | Nová verze

    Byla vydána Beta 1 verze KDE 6 (Plasma, Frameworks a Gear) postavené na Qt 6. Testovat lze například v distribuci KDE Neon. Stabilní verze je plánována na konec února 2024. Předchozí velké vydání 5 vylo vydáno téměř před 10 lety (červenec 2014).

    Ladislav Hagara | Komentářů: 19
    29.11. 23:00 | Komunita

    Open-source webmail Roundcube se připojil k balíku aplikací Nextcloudu. Převzetí firmou Nextcloud ale plánováno není, pouze integrace a podpoření vývoje.

    Fluttershy, yay! | Komentářů: 0
    29.11. 18:44 | IT novinky

    Stability AI představila SDXL Turbo, tj. umělou inteligenci pro generování obrázků z textového popisu v reálném čase, viz ukázka na YouTube.

    Ladislav Hagara | Komentářů: 1
    29.11. 12:33 | Nová verze

    Svobodná webová platforma pro sdílení a přehrávání videí PeerTube (Wikipedie) byla vydána v nové major verzi 6. Přehled novinek i s náhledy a videi v oficiálním oznámení a na GitHubu (6.0.0, 6.0.1).

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

    S eDoklady lze mít od ledna 2024 občanku v mobilní aplikaci [Digitální a informační agentura – DIA].

    Ladislav Hagara | Komentářů: 8
    Používáte modální textový editor?
     (76%)
     (3%)
     (2%)
     (20%)
    Celkem 290 hlasů
     Komentářů: 8, poslední 16.11. 22:24
    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: 527×

     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.