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í
×
    dnes 11:33 | Nová verze

    Byla vydána nová major verze 8 duálně licencovaného open source frameworku JUCE (Wikipedie, GitHub) pro vývoj multiplatformních audio aplikací.

    Ladislav Hagara | Komentářů: 0
    dnes 11:11 | IT novinky

    Od 18. června bude možné předobjednat notebook DC-ROMA RISC-V LAPTOP II od společnosti DeepComputing s osmijádrovým 64-bit RISC-V AI CPU a s předinstalovaným Ubuntu.

    Ladislav Hagara | Komentářů: 0
    včera 23:55 | Nová verze

    Byla vydána verze 1.79.0 programovacího jazyka Rust (Wikipedie). Podrobnosti v poznámkách k vydání na GitHubu. Vyzkoušet Rust lze například na stránce Rust by Example.

    Ladislav Hagara | Komentářů: 0
    včera 14:33 | Zajímavý článek

    Byly zveřejněny výsledky průzkumu (infografika) mezi uživateli FreeBSD.

    Ladislav Hagara | Komentářů: 0
    včera 13:22 | IT novinky

    Na konferenci DevConf.CZ 2024 je na stánku Furi Labs prezentován linuxový telefon FuriPhone FLX1. Jeho cena 499 dolarů.

    Ladislav Hagara | Komentářů: 15
    včera 00:11 | Nová verze

    Bylo vydáno Eclipse IDE 2024-06 aneb Eclipse 4.32. Představení novinek tohoto integrovaného vývojového prostředí také na YouTube.

    Ladislav Hagara | Komentářů: 1
    12.6. 22:00 | Nová verze

    Proton, tj. fork Wine integrovaný v Steam Play a umožňující v Linuxu přímo ze Steamu hrát hry určené pouze pro Windows, byl vydán ve verzi 9.0-2 (𝕏). Přehled novinek se seznamem nově podporovaných her na GitHubu. Aktuální přehled her pro Windows běžících díky Protonu také na Linuxu na stránkách ProtonDB.

    Ladislav Hagara | Komentářů: 0
    12.6. 15:44 | Nová verze

    Po roce od vydání verze 15.5 bylo vydáno openSUSE Leap 15.6. Přehled novinek v nejnovější verzi této linuxové distribuce v oznámení o vydání a v poznámkách k vydání.

    Ladislav Hagara | Komentářů: 0
    12.6. 12:44 | Nová verze

    Byla vydána nová verze 256 správce systému a služeb systemd (GitHub). Nově mimo jiné s run0 jako alternativou k sudo.

    Ladislav Hagara | Komentářů: 21
    12.6. 12:00 | IT novinky

    Společnost Oracle oznámila spolupráci s Google Cloudem, OpenAI a Microsoftem.

    Ladislav Hagara | Komentářů: 0
    Rozcestník

    Dotaz: Perl + XPath rovnaké tágy

    10.12.2006 22:28 dusan456 | skóre: 12 | Poprad
    Perl + XPath rovnaké tágy
    Přečteno: 215×
    Chcem použiť XPath na extraktovanie textu z XML dokumentu. Takto nejako vypadá môj aaa.xml
    <document>
    <result>
    <A>
    nieco1
    </A>
    <B>
    <text>
    nieco2
    </text>
    </B>
    <B>
    <text>
    nieco3
    </text>
    </B>
    </result>
    <result>
    ...
    </document>

    a takto nejako vypadá môj pelrový skript na extraktovanie
    use strict;
    use DBI;
    use XML::XPath;
    use XML::XPath::XMLParser;

    my $dbh = DBI->connect ("DBI:mysql:test", "root", "", { RaiseError => 1, PrintError => 0});
    my $xp = XML::XPath->new (filename => "aaa.xml");
    my $nodelist = $xp->find ("//result");
    foreach my $row ($nodelist->get_nodelist ())
    {
    $dbh->do (
    "INSERT INTO tabulka (a, b_prva, b_druha) VALUES (?,?,?)",
    undef,
    $row->find ("A")->string_value (),
    $row->find ("B/text")->string_value (),
    $row->find ("B/text")->string_value ()
    );

    }
    $dbh->disconnect ();

    Problem je v tom, že B/text je obsiahnuté dva razy v tom XML dokumente a do tabulky vloží vždy prvú hodnotu aj do druhého a aj do tretieho stĺpca. Vie niekto poradiť? Ďakujem

    Odpovědi

    10.12.2006 23:26 Petr
    Rozbalit Rozbalit vše Re: Perl + XPath rovnaké tágy
    Např. pomocí "B[1]/text" a "B[2]/text".
    10.12.2006 23:32 dusan456 | skóre: 12 | Poprad
    Rozbalit Rozbalit vše Re: Perl + XPath rovnaké tágy
    Perfektneee, dakujem.

    Ja som skusal "B/text[1]" a "B/text[2]", preto mi to nefungovalo, tak som myslel, ze v tom to nebude.
    Fuky avatar 10.12.2006 23:33 Fuky | skóre: 52 | blog: 4u
    Rozbalit Rozbalit vše Re: Perl + XPath rovnaké tágy

    use strict;
    use DBI;
    use XML::XPath;
    
    my $xp = XML::XPath->new(filename => 'soubor.xml');
    
    foreach my $row ($xp->findnodes('//result')) {
      print $row->find('A')->string_value;
    
      foreach my $row ($xp->findnodes('//result/B')) {
        print $row->find('text')->string_value;
      }
    }
    

    9.4.2009 22:39 Jezza
    Rozbalit Rozbalit vše Re: Perl + XPath rovnaké tágy

    Mam takovyto xml soubor: fi.muni.cz/~xjezek2/temp/forum.xml

     

    Chci z nej dostat urcita data a pouzivam na to upraveny skript z tohoto fora:

    use strict;
    use DBI;
    use XML::XPath;

    my $xp = XML::XPath->new(filename => 'def.xml');

    foreach my $row ($xp->findnodes('//oval_definitions/definitions/definition/metadata')) {
      print "title = ";
        print $row->find('title')->string_value;
     
        foreach my $row ($xp->findnodes('//oval_definitions/definitions/definition/metadata/affected')) {
      print "platform = ";
        print $row->find('platform')->string_value; ## jak na vice platfotm?    Jak ulozit hodnotu tagu do promente, jak vypsat atribut tagu?
       
        }
    }

     

    Potreboval bych dostat informace z tagu platform, ktery je v jedne urovni vicekrat.

    Dale bych se chtel zeptat, jak ulozit do promenne tato ziskana data misto toho, ze se tisknout...zkousel jsem to ruzne, ale pise by to chyby.

    Posledni dotaz je, lze ziska nejen hodnotu tagu, ale i jeho atributy, jako je treba i tagu <definition> comment a id?

    Predem diky

    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.