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 18:11 | Nová verze

Společnost Oracle oficiálně oznámila vydání Java SE 9 (JDK 9), Java Platform Enterprise Edition 8 (Java EE 8) a Java EE 8 Software Development Kit (SDK). Java SE 9 přináší více než 150 nových vlastností.

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

Na Humble Bundle lze získat hororovou počítačovou hru Outlast (Wikipedie) běžící také v Linuxu zdarma. Speciální akce končí v sobotu v 19:00.

Ladislav Hagara | Komentářů: 1
včera 10:33 | Humor

Mozilla.cz upozorňuje na Knihu Mozilly (Wikipedie), tj. velikonoční vajíčko ve Firefoxu. Zobrazit jej lze zadáním about:mozilla do adresního řádku. Aktuální verze Firefoxu obsahuje proroctví 15:1 "Dvojčata Mamonu se rozhádala a jejich souboje uvrhly svět do nové tmy. Zvířeti se ale tma hnusila. A tak se stalo mrštnější a silnější, šlo vpřed a jeho počty rostly. A zvíře přineslo oheň a světlo do tmy". Firefox 57 bude obsahovat proroctví 11:14. To je zatím jenom v angličtině. Pomoci lze s překladem do češtiny.

Ladislav Hagara | Komentářů: 8
včera 01:22 | Zajímavý projekt
Před měsícem byla spuštěna kampaň na podporu chytrého telefonu Librem 5, jenž by měl respektovat bezpečnost, svobodu a soukromí uživatelů. Cílem kampaně je vybrat alespoň milion a půl dolarů. Aktuálně je vybráno přes 600 000 dolarů, tj. 40 %. Kampaň poběží ještě další měsíc. Podporu projektu oznámilo KDE i GNOME.
Ladislav Hagara | Komentářů: 25
včera 00:55 | Komunita

Agentura DISA (Defense Information Systems Agency) publikovala (pdf) Ubuntu 16.04 Security Technical Implementation Guide (STIG) (zip), tj. doporučené bezpečnostní nastavení Ubuntu 16.04. Ubuntu se tak dostalo mezi unixové operační systémy a linuxové distribuce AIX, HP-UX, Oracle Linux, Red Hat a Solaris [reddit].

Ladislav Hagara | Komentářů: 2
21.9. 22:55 | Bezpečnostní upozornění

CSIRT.CZ informuje, že byly vydány nové bezpečnostní aktualizace, které opravují několik zranitelných míst v Sambě. Útočník může využít zranitelnosti s cílem získání přístupu k potenciálně citlivých informací. Uživatelům a správcům je doporučeno, aby zkontrolovali bezpečnostní opatření pro CVE-2017-12150, CVE-2017-12151 a CVE-2017-12163 a provedli potřebné aktualizace.

Ladislav Hagara | Komentářů: 0
21.9. 21:44 | Komunita

Společnost Red Hat aktualizovala svůj slib ohledně softwarových patentů. Slib nově zahrnuje i open source software pod permisivními licencemi.

Ladislav Hagara | Komentářů: 0
21.9. 08:55 | Komunita

Do 22. září probíhá v Mountain View konference XDC2017 (X.Org Developer's Conference). Na programu je řada zajímavých přednášek. Sledovat je lze online. K dispozici je záznam přednášek ze včerejšího dne.

Ladislav Hagara | Komentářů: 0
20.9. 17:33 | Nová verze

Byla vydána nová stabilní verze 1.12 (1.12.955.36) webového prohlížeče Vivaldi (Wikipedie). Z novinek vývojáři zdůrazňují možnost zobrazení metadat u digitálních fotografií, vylepšený panel stahování a omezení sytosti barvy zdůraznění (YouTube). Nejnovější Vivaldi je postaveno na Chromiu 61.0.3163.91.

Ladislav Hagara | Komentářů: 40
20.9. 10:55 | Nová verze

Byla vydána verze 4.0 programovacího jazyka Swift (Wikipedie). Zdrojové kódy jsou k dispozici na GitHubu. Ke stažení jsou oficiální binární balíčky pro Ubuntu 16.10, Ubuntu 16.04 a Ubuntu 14.04.

Ladislav Hagara | Komentářů: 5
Těžíte nějakou kryptoměnu?
 (5%)
 (3%)
 (17%)
 (75%)
Celkem 557 hlasů
 Komentářů: 22, poslední 29.8. 11:23
    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.