LINUXSOFT.cz Přeskoč levou lištu
Uživatel: Heslo:  
   CZUKPL

> Perl (135) - XML - čtení a zápis

Perl XML je univerzálním jazykem pro přenos nejrůznějších dokumentů. Jak si s jeho parsováním poradí Perl?

24.6.2011 00:00 | Jiří Václavík | Články autora | přečteno 6955×

Jazyk XML (Extensible Markup Language) netřeba dlouze představovat. Jde o značkovací jazyk, který se masivně používá pro přenos dokumentů. Příklad XML dokumentu je k vidění na Wikipedii.

Nyní budeme zkoumat nástroje, které dokáží v našich programech s XML pohodlně zacházet. Díky oblibě XML jich je k dispozici celá řada.

Základním nástrojem pro nejjednodušší operace s XML daty je modul XML::Simple z archivu modulů CPAN. XML::Simple umí jedinou věc - konvertuje XML data do datové struktury Perlu a naopak.

Hned na úvod poznamenejme, že XML::Simple má jeden zásadní nedostatek. Nelze mixovat obsah a elementy uvnitř jednoho elementu. S tím si XML::Simple neporadí a je třeba použít něco silnějšího.

Další potenciální slabinou XML::Simple je, že je náročný na paměť a u extrémně velkých souborů to může působit problémy. S tím souvisí i to, že nelze zpracovávat data dávkově. K tomu slouží specializované moduly, které pracují s nástrojem zvaným SAX.

Modul XML::Simple obsahuje dvě hlavní metody. XMLin pro načtení XML souboru a naopak XMLout pro export do XML.

Čtení XML dat

Budeme na chvíli pracovat s následujícím souborem.

<?xml version="1.0" encoding="UTF-8"?>
<katalog>
  <kniha id="1">
    <nazev>Stopařův průvodce Galaxií 1.</nazev>
    <autor>Adams Douglas</autor>
    <foto src="stoparuv.jpg" alt="Titulní strana - Stopařův průvodce"/>
    <popis>
      Nezapomeňte: <citace>ručník je dost možná tou nejužitečnější věcí ve vesmíru</citace>.
    </popis>
    <cena>319</cena>
  </kniha>
  <kniha id="2">
    <nazev>Alchymista</nazev>
    <autor>Coelho Paulo</autor>
    <foto src="alchymista.jpg" alt="Titulní strana - Alchymista"/>
    <popis>
      Cesta za pokladem.
    </popis>
    <cena>399.90</cena>
  </kniha>
</katalog>

Podívejme se na úvod, jak tedy načteme XML soubor katalog.xml.

use XML::Simple;
use Data::Dumper;
$katalog = XMLin("katalog.xml");
print Dumper $katalog;

Zároveň jsme díky modulu Data::Dumper vytiskli strukturu právě vytvořené proměnné $katalog.

$VAR1 = {
          'kniha' => {
                     '1' => {
                            'foto' => {
                                      'alt' => "Titulní strana - Stopařův průvodce",
                                      'src' => 'stoparuv.jpg'
                                    },
                            'autor' => 'Adams Douglas',
                            'popis' => {
                                       'citace' => "ručník je dost možná tou nejužitečnější věcí ve vesmíru",
                                       'content' => [
                                                      "
      Nezapomeňte: ",
                                                      '.
    '
                                                    ]
                                     },
                            'nazev' => "Stopařův průvodce Galaxií 1.",
                            'cena' => '319'
                          },
                     '2' => {
                            'foto' => {
                                      'alt' => "Titulní strana - Alchymista",
                                      'src' => 'alchymista.jpg'
                                    },
                            'autor' => 'Coelho Paulo',
                            'popis' => '
      Cesta za pokladem.
    ',
                            'nazev' => 'Alchymista',
                            'cena' => '399.90'
                          }
                   }
        };

Jako parametr XMLin jsme uvedli jméno souboru. Kdybychom použili metodu bez argumentů, hledal by se soubor stejného názvu jako skript (přesněji __FILE__) s tím, že by se přípona pozměnila na .xml. Další možností je vložit přímo řetězec ve formátu XML.

Modul funguje i s objektovým přístupem.

XML::Simple->new()->XMLin("neco.xml")

Uveďme zde ještě pár poznámek, jak se data ukládají. Především, ukládání do datové struktury je ztrátové, ale není to nic kritického. Na několika příkladech si nyní vysvětlíme, jak konverze probíhá. Podle nich uvidíme, kde dochází k nejednoznačnostem, které se potom pokusíme odstranit. Ne u všech to půjde.

Uvnitř elementu může být buď text nebo další struktura elementů. Je-li tam text, pak se též objeví jako příslušná hodnota hashe. V opačném případě bude touto hodnotou nějaká další anonymní datová struktura.

Pokud máme XML opakované elementy, pak jsou položky (knihy) reprezentovány jako prvky anonymního pole.

<kniha>...</kniha>
<kniha>...</kniha>
...

Pokud je rozlišíme parametrem s názvem id (tak jsme to udělali v případě knih i v úvodním příkladu), pak se ukládají jako hash tvaru {1=>{...}, 2=>{...}, ...}.

<kniha id=1>...</kniha>
<kniha id=2>...</kniha>
...

Dodejme ještě, že úplně stejně by se do datové struktury uložilo následující.

<kniha><id>1</id>...</kniha>
<kniha><id>2</id>...</kniha>
...

Nabízí se otázka: Jde celé toto "chytré" chování nějak obejít? Odpověď je: Ano, stačí data načítat s parametrem ForceArray => 1. Výsledná datová struktura je složitější a strukturou více popisuje vstupní data.

XMLin("ukazka.xml", ForceArray => 1);

Opět zde narážíme na nedostatky XML::Simple. Vždy jde o to, co vlastně chceme. Pokud jen chceme získat několik jednotlivých dat a nejednoznačnosti nejsou podstatné, bude se lépe pracovat s původní verzí (avšak zde poznamenejme, že robusnější řešení nabízí xPath). Pokud chceme XML upravit a uložit, bude lepší využít ForceArray, neboť výsledné XML by se pak mohlo hodně změnit (to uvidíme podrobněji dále).

Dalších parametrů je celá řada. Pro další informace se odkažme na dokumentaci.

Ještě si všimněme, jak se element <citace></citace> objevil ve výsledné datové struktuře. Již jsme na to narazili v úvodu. Pokud se uvnitř elementu objevuje text (což je zde fyzicky obsah elementu <content></content>) a další elementy, pak XML::Simple vůbec neumí rozlišit jejich pořadí. Měli bychom tedy použít nějaký jiný nástroj.

Práce s jednotlivými daty a xPath

Samozřejmě můžeme pomocí pravidel pro datové struktury tisknout i konkrétní skaláry. Například následující volání má za následek vytisknutí autora 1. knihy v seznamu.

print $katalog->{kniha}->{1}->{autor};

Pravdou však je, že to není příliš pohodlné. Je ale třeba si uvědomit, že pro tisk jakýchkoliv dat je uvedení cesty k nim nezbytné. Přirozenou otázkou je, zda neexistuje nějakým způsobem standardizovaná cesta k jednotlivým datům ve formě řetězce. Ano, samozřejmě již existuje a daný jazyk se nazývá xPath.

Nebudeme se jím podrobně zabývat, pouze si uvedeme příklad. Na CPANu je řada modulů, které xPath podporují. Uveďme například XML::XPath::Simple. Autora první knihy zde získáme takto.

use XML::XPath::Simple;
$xpath = new XML::XPath::Simple(xml => "ukazka.xml");
print $xpath->valueof("/katalog/kniha[1]/autor");

Pro zájemce o xPath je k dispozici například tutoriál na w3schools.com.

Zápis XML dat

Nyní bychom samozřejmě mohli s touto strukturou pracovat. To zatím ponechme stranou a podívejme se, jak z datové struktury vytvoříme XML.

O výstup do XML dat se stará Metoda XMLout. Vytiskněme na úvod naši datovou strukturu $katalog na standardní výstup ve formátu XML.

print XMLout($katalog);

Výstup nás možná překvapí, protože náš původní XML soubor vypadal trochu jinak. Důvod jsme již uvedli. Struktura dat nicméně zůstává stejná.

<opt>
  <kniha name="1" autor="Adams Douglas" cena="319" nazev="Stopařův průvodce Galaxií 1.">
    <foto alt="Titulní strana - Stopařův průvodce" src="stoparuv.jpg" />
    <popis citace="ručník je dost možná tou nejužitečnější věcí ve vesmíru">
      <content>
      Nezapomeňte: </content>
      <content>.
    </content>
    </popis>
  </kniha>
  <kniha name="2" autor="Coelho Paulo" cena="399.90" nazev="Alchymista" popis="
      Cesta za pokladem.
    ">
    <foto alt="Titulní strana - Alchymista" src="alchymista.jpg" />
  </kniha>
</opt>

Předně, velmi záleží na tom, zda jsme načetli XML soubor s parametrem ForceArray. Předcházející soubor nám vznikl bez ForceArray. Jeho nastavením získáme lehce změněný výstup, který je podobnější úvodní verzi.

<opt>
  <kniha name="1">
    <autor>Adams Douglas</autor>
    <cena>319</cena>
    <foto alt="Titulní strana - Stopařův průvodce" src="stoparuv.jpg" />
    <nazev>Stopařův průvodce Galaxií 1.</nazev>
    <popis>
      <citace>ručník je dost možná tou nejužitečnější věcí ve vesmíru</citace>
      <content>
      Nezapomeňte: </content>
      <content>.
    </content>
    </popis>
  </kniha>
  <kniha name="2">
    <autor>Coelho Paulo</autor>
    <cena>399.90</cena>
    <foto alt="Titulní strana - Alchymista" src="alchymista.jpg" />
    <nazev>Alchymista</nazev>
    <popis>
      Cesta za pokladem.
    </popis>
  </kniha>
</opt>

Nastavením dodatečných parametrů pro metodu XMLout můžeme docílit ještě dalších změn.

Parametrem KeepRoot => 0 se zbavíme obalujícího elementu <opt></opt>.

Také se nám cestou ztratila úvodní deklarace z XML souboru. Můžeme ji doplnit parametrem XMLDecl => "<?xml version='1.0'?>".

Abychom nemuseli vrácený řetězec složitě zapisovat do souboru, lze užít také parametr OutputFile => 'novy_katalog.xml', který vytiskne výsledek do uvedeného souboru na místo standardního výstupu. Výsledné volání nyní vypadá takto.

XML::Simple::XMLout($katalog, 
    KeepRoot   => 0, 
    XMLDecl    => "<?xml version='1.0'?>",
    OutputFile => "new.xml",
);

Verze pro tisk

pridej.cz

 

DISKUZE

Nejsou žádné diskuzní příspěvky u dané položky.



Příspívat do diskuze mohou pouze registrovaní uživatelé.
> Vyhledávání software
> Vyhledávání článků

19.4.2015 15:55 /MaReK Olšavský
Možná trochu neuvěřitelné je ohlášení GNU Hurd 0.6 a mikrojádra Mach 1.5. GNU Hurd byl nadějný systém Un*xového typu od FSF, s mikrojádrem (GNU/Linux používá jádro monolitické), avšak je zcela ve stínu Linuxu a BSD.
Přidat komentář

16.4.2015 21:49 /Ondřej Čečák
CryptoFest, seminář zaměřený na zabezpečení dat pomocí šifrování, a RetroFest, jednodenní výlet do minulosti hardware a software, se budou letos konat o víkendu 6. a 7. června na pražském Strahově. Stále můžete hlasovat o programu, případně se přihlásit se svojí přednáškou!
Přidat komentář

16.4.2015 7:55 /MaReK Olšavský
Programujete-li v Pythonu a potřebuje pracovat s Excelovskými soubory, mohlo by vás potěšit vydání XLWT 1.0.0, z balíku Python Excel), které je pro Python 3 a mimo jiné začíná obsahovat i podporu pro unit testy. Podporovanými typy souborů jsou formáty Excel 95–2003.
Přidat komentář

4.3.2015 9:04 /Marek Pszczolka
Obchod LinuxMarket získal díky spokojenosti ověřených zákazníků prestižní certifikát Ověřeno zákazníky. Recenzi na tento obchod mohou psát pouze ověření zákazníci - tím máte jistotu pravdivosti recenzí.Hodnocení lze učinit vyplněním dotazníku spokojenosti, který zákazníkům přijde po nákupu. http://obchody.heureka.cz/linuxsoft-cz-linuxmarket/recenze/
Přidat komentář

3.3.2015 7:15 /MaReK Olšavský
Další kus bývalé Motoroly, Freescale, bude mít nového majitele, jímž se stane nizozemská NXP. Motorola se podílela na PowerPC, ale ještě dříve vyrobila legendární řadu mikroprocesorů 68 0x0, které jsme měli v Amigách, Atari ST, Applech, nebo Sinclairu QL, či prvních stanicích SUN Microsystems.
Přidat komentář

3.3.2015 6:59 /MaReK Olšavský
Firma Epic Games překvapila otevřením Unreal Engine 4 a dalších verzí. Z původní ceny US$ 3000 čtvrtletně, ke zcela otevřeným zdrojovým kódům.
Přidat komentář

2.3.2015 6:58 /MaReK Olšavský
Pomalý vývoj se stal vlastností desktopu Xfce, který byl uvolněn ve verzi 4.12, jež nabízí zcela přepsaný editor Mousepad, podporu vypalování BluRay, nebo počínající podporu GTK3.
Komentářů: 1

2.3.2015 6:58 /MaReK Olšavský
Vyšlo 94. číslo měsíčníku Full Circle Magazine (pdf, ePub), v němž naleznete článek o btrfs, nebo recenzi hry War Thunder.
Přidat komentář

   Více ...   Přidat zprávičku

> Poslední diskuze

3.3.2015 22:05 / MaReK Olšavský
Re: Presmerovanie na WEB server v LAN

3.3.2015 6:54 / MaReK Olšavský
Recenze + instalace

2.2.2015 6:40 / MaReK Olšavský
Re: Churchill

30.1.2015 13:16 / Petr Ježek
Churchill

27.1.2015 12:58 / Ladislav Kulatý
Re: Mazání adřářů v linuxu pro IP kamery

Více ...

ISSN 1801-3805 | Provozovatel: Pavel Kysilka, IČ: 72868490 (2003-2015) | mail at linuxsoft dot cz | Design: www.megadesign.cz | Textová verze | zákony online