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í
×
eParkomat, startup z ČR, postoupil mezi finalisty evropského akcelerátoru ChallengeUp!
Robot na pivo mu otevřel dveře k opravdovému byznysu
Internet věcí: Propojený svět? Už se to blíží...
dnes 06:00 | Zajímavý software

OMG! Ubuntu! představuje emulátor terminálu Hyper (GitHub) postavený na webových technologiích (HTML, CSS a JavaScript). V diskusi k článku je zmíněn podobný emulátor terminálu Black Screen. Hyper i Black Screen používají framework Electron, stejně jako editor Atom nebo vývojové prostředí Visual Studio Code.

Ladislav Hagara | Komentářů: 2
dnes 06:00 | Zajímavý článek

I letos vychází řada ajťáckých adventních kalendářů. QEMU Advent Calendar 2016 přináší každý den nový obraz disku pro QEMU. Programátoři se mohou potrápit při řešení úloh z kalendáře Advent of Code 2016. Kalendáře Perl Advent Calendar 2016 a Perl 6 Advent Calendar přinášejí každý den zajímavé informace o programovacím jazyce Perl. Stranou nezůstává ani programovací jazyk Go.

Ladislav Hagara | Komentářů: 2
3.12. 16:24 | Nová verze

Byla vydána Mageia 5.1. Jedná se o první opravné vydání verze 5, jež vyšla v červnu loňského roku (zprávička). Uživatelům verze 5 nepřináší opravné vydání nic nového, samozřejmě pokud pravidelně aktualizují. Vydání obsahuje všechny aktualizace za posledního téměř půldruhého roku. Mageia 5.1 obsahuje LibreOffice 4.4.7, Linux 4.4.32, KDE4 4.14.5 nebo GNOME 3.14.3.

Ladislav Hagara | Komentářů: 8
3.12. 13:42 | Pozvánky

V Praze probíhá konference Internet a Technologie 16.2, volné pokračování jarní konference sdružení CZ.NIC. Konferenci lze sledovat online na YouTube. K dispozici je také archiv předchozích konferencí.

Ladislav Hagara | Komentářů: 0
2.12. 22:44 | Komunita

Joinup informuje, že Mnichov používá open source groupware Kolab. V srpnu byl dokončen dvouletý přechod na toto řešení. V provozu je asi 60 000 poštovních schránek. Nejenom Kolabu se věnoval Georg Greve ve své přednášce Open Source: the future for the European institutions (SlideShare) na konferenci DIGITEC 2016, jež proběhla v úterý 29. listopadu v Bruselu. Videozáznam přednášek z hlavního sálu je ke zhlédnutí na Livestreamu.

Ladislav Hagara | Komentářů: 22
2.12. 15:30 | Zajímavý projekt

Společnost Jolla oznámila v příspěvku Case study: Sailfish Watch na svém blogu, že naportovala Sailfish OS na chytré hodinky. Využila a inspirovala se otevřeným operačním systémem pro chytré hodinky AsteroidOS. Použita je knihovna libhybris. Ukázka ovládání hodinek na YouTube.

Ladislav Hagara | Komentářů: 8
2.12. 14:15 | Nová verze

Byla vydána verze 7.1.0 skriptovacího jazyka PHP používaného zejména k vývoji dynamických webových stránek. Jedná se o první stabilní verzi nejnovější větvě 7.1. Přehled novinek v dokumentaci. Podrobnosti v ChangeLogu. K dispozici je také příručka pro přechod z PHP 7.0.x na PHP 7.1.x.

Ladislav Hagara | Komentářů: 4
2.12. 12:55 | Nová verze

Google Chrome 55 byl prohlášen za stabilní. Nejnovější stabilní verze 55.0.2883.75 tohoto webového prohlížeče přináší řadu oprav a vylepšení (YouTube). Opraveno bylo také 36 bezpečnostních chyb. Mariusz Mlynski si například vydělal 22 500 dolarů za 3 nahlášené chyby (Universal XSS in Blink).

Ladislav Hagara | Komentářů: 4
2.12. 11:55 | Pozvánky

Máte rádi svobodný software a hardware nebo se o nich chcete něco dozvědět? Přijďte na 135. sraz spolku OpenAlt, který se bude konat ve čtvrtek 8. prosince od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Sraz bude tentokrát tématický. Bude retro! K vidění budou přístroje jako Psion 5mx nebo Palm Z22. Ze svobodného hardwaru pak Openmoko nebo čtečka WikiReader. Přijďte se i vy pochlubit svými legendami, nebo alespoň na pivo. Moderní hardware má vstup samozřejmě také povolen.

xkucf03 | Komentářů: 1
2.12. 00:10 | Nová verze

Byla vydána verze 3.2 svobodného systému pro detekci a prevenci průniků a monitorování bezpečnosti počítačových sítí Suricata. Z novinek lze zmínit například podporu protokolů DNP3 a CIP/ENIP, vylepšenou podporu TLS a samozřejmě také aktualizovanou dokumentaci.

Ladislav Hagara | Komentářů: 0
Kolik máte dat ve svém domovském adresáři na svém primárním osobním počítači?
 (32%)
 (24%)
 (29%)
 (7%)
 (5%)
 (3%)
Celkem 771 hlasů
 Komentářů: 50, poslední 29.11. 15:50
Rozcestník
Reklama

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: 502×

 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.