Ausgabe von XML::Smart (Allgemeines zu Perl)

[thread]18759[/thread]

Ausgabe von XML::Smart

Tags: perl5 XML xml::smart Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+6 replies
zilpzalp

2013-11-21 20:21
User since
2012-08-04
4 Artikel
BenutzerIn
Hi!

Ich möchte mittels XML::Smart eine XML-Sitemap erstellen. Ich verwende hierzu folgenden Code (vereinfacht):
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

#!/usr/bin/perl use strict; use warnings; use XML::Smart; my $sitemap = XML::Smart->new(); $sitemap=$sitemap->{'urlset'}; push(@{$sitemap->{'url'}}, {loc => "http://www.example.com/page1.html", lastmod => "2013-11-20"}); push(@{$sitemap->{'url'}}, {loc => "http://www.example.com/page2.html", lastmod => "2013-11-21"}); print $sitemap->data(), "\n";
Die Ausgabe sieht dann wie folgt aus:
Code: (dl )

1 2 3 4 5

[...] <urlset> <url lastmod="2013-11-20" loc="http://www.example.com/page1.html"/> <url lastmod="2013-11-21" loc="http://www.example.com/page2.html"/> </urlset>
Die Sitemap-Parser mögen wohl die "flache" Ausgabe der url-Tags nicht. Ich würde gerne folgende Ausgabe produzieren:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

[...] <urlset> <url> <loc>http://www.example.com/page1.html</loc> <lastmod>2013-11-20</lastmod> </url> <url> <loc>http://www.example.com/page2.html</loc> <lastmod>2013-11-21</lastmod> </url> </urlset>
Habt Ihr eine Idee, wie ich XML::Smart dazu bewege?

Danke und Gruß, zilpzalp
Last edited: 2013-11-21 20:22:45 +0100 (CET)
- Linuxer
  
  2013-11-21 23:08
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Hi,
  ich mache eigentlich einen Bogen um XML und sein Zubehör, hatte aber heute Lust zu knobeln ;-)
  
  Nur mit XML::Smart alleine scheint es mir nicht sauber möglich zu sein.
  Man kann jeder "loc" und "lastmod" ein Array übergeben und neben dem gewünschten String noch einen "Dummy" String mitgeben; dann generiert XML::Smart die gewünschte Struktur. Wichtig ist, dass es innerhalb der Array-Ref mindestens zwei nicht-leere (wahre) Werte gibt, die verarbeitet werden können). Hinterher müsste man dann zusehen, wie man die "Dummy"-Einträge wieder rausbekommt. Recht unschön der Ansatz.
  
  Hier eine Lösung, die ein weiteres Modul (XML::Quick) zum Zusammenbauen verwendet:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
  
  #! /usr/bin/env perl use strict; use warnings; use XML::Quick; use XML::Smart; # Bereite Datenstruktur vor my %hash = ( urlset => { url => [ { loc => "http://www.example.com/page1.html", lastmod => "2013-11-20", }, { loc => "http://www.example.com/page2.html", lastmod => "2013-11-21", }, ], }, ); # neue Sitemap auf Basis der Datenstruktur; xml() stammt von XML::Quick; siehe perldoc XML::Quick my $sitemap = XML::Smart->new(xml(\%hash)); # und raus damit: print $sitemap->data(), "\n"; __END__
  
  Ergebnis:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  <?xml version="1.0" encoding="UTF-8" ?> <?meta name="GENERATOR" content="XML::Smart/1.78 Perl/5.018001 [linux]" ?> <urlset> <url> <lastmod>2013-11-20</lastmod> <loc>http://www.example.com/page1.html</loc> </url> <url> <loc>http://www.example.com/page2.html</loc> <lastmod>2013-11-21</lastmod> </url> </urlset>
  
  Last edited: 2013-11-21 23:11:24 +0100 (CET)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- rosti
  
  2013-11-22 06:53
  
  User since
  2011-03-19
  3715 Artikel
  BenutzerIn
  
  Für so ein lächerliches Sitemap brauchst Du das Modul nicht. Im Style von Perl3 sind das ein paar print-Anweisungen ;)
  http://rolfrost.de/wallpaper.html
  
  WallPaper -- jeden Monat neu. Mit nur 2 Klicks den Aktuellen Monat auf dem Desktop.
- +3 replies
- GwenDragon
  
  2013-11-22 10:09
  
  User since
  2005-01-17
  14868 Artikel
  Admin1
  
  Wenn es für das Sitemaps-Protokoll eine Sitemap (Beispiel) sein muss, warum erstellst du die nicht, indem du Hashes druchläufst und ein paar Ausgaben über print machst?
  Warum das Modul?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Gast wer
    
    2013-11-22 10:36
    
    weil das modul gleich korrekt quotet und kodiert?
    Last edited: 2013-11-22 10:41:06 +0100 (CET)
  - zilpzalp
    
    2013-11-22 16:20
    
    User since
    2012-08-04
    4 Artikel
    BenutzerIn
    
    Danke für die Antworten!
    
    Tatsächlich lohnt es sich für die Sitemap allein nicht. Ich verwende XML::Smart allerdings auch in anderen Programmen. Ich wollte das an diesem Beispiel mal "grundsätzlich klären".
    
    Gruß, zilpzalp

View all threads created 2013-11-21 20:21.