XML::Simple - XML-Werte auslesen (Fragen zu Perl-Modulen)

[thread]18091[/thread]

XML::Simple - XML-Werte auslesen

Leser: 17

Articles: hide open all | hide show old branches

+5 replies

gucci2411

2013-01-28 15:31

User since
2013-01-28
5 Artikel
BenutzerIn
[default_avatar]

Hallo zusammen,

ich habe/möchte ein kleines Perl Skript schreiben welches bestimmte Parameter aus einer XML Datei ausliest. In meinem Beispiel handelt es sich um eine channels.xspf von VLC.

Die XML Datei sieht so aus. (auf einen Track gekürzt der Übersicht halber.)Es gibt insgesamt 1426 Track Elemente inkl. der Subelemente

Code: (dl )

<?xml version="1.0" encoding="UTF-8"?>
	<playlist version="1" xmlns="http://xspf.org/ns/0/" xmlns:vlc="http://www.videolan.org/vlc/playlist/ns/0/">
		<title>DVB-Wiedergabeliste Satelit 1</title>
		<trackList>
			<track>
				<title>tagesschau24</title>
				<location>dvb-s://satno=1:frequency=10744000:voltage=18:srate=22000000</location>
				<extension application="http://www.videolan.org/vlc/playlist/0">
					<vlc:id>0</vlc:id>
					<vlcoption>program=28721</vlcoption>
				</extension>
			</track>
		</trackList>
	</playlist>

folgende Code habe ich bereits erstellt.

Code: (dl )

  use XML::Simple;
  use strict;
  use warnings;

 my $filename = 'channels.xspf';
 my $title     = 'tagesschau24';
  my $library  = XMLin($filename,
   ForceArray => [ 'track', 'location' ],
    KeyAttr    => { track => 'title' }
  );

 my $track = $library->{trackList}->{track}->{$title};

my @liste = (@{$track->{location}});
print "$liste[0]\n";

Hiermit erhalte ich den Inhalt das Tag's location.

jetzt möchte ich gerne zusätzlich noch den Inhalt aus vlcoption haben.

Ich dachte folgender Ansatz wäre richtig:

Code: (dl )

1
2

my @liste2 = (@{$track->{extension}->{vlcoption}});
print "$liste2[0]\n";

Hier bekomme ich leider die Meldung:
Not a HASH reference at line 24.

Beim recherchieren in Netz bin ich immer wieder auf data Dumper ausgaben gestoßen. Die ich leider nicht wirklich verstehe. :(

hier das komplette Skript inklusive der Ausgaben/Dumper ausgaben.

Code: (dl )

  use XML::Simple;
  use strict;
  use warnings;
  use Data::Dumper;

 my $filename = 'channels.xspf';
 my $title     = 'tagesschau24';
  my $library  = XMLin($filename,
   ForceArray => [ 'track', 'location', 'extension', 'vlcoption'],
    KeyAttr    => { track => 'title' }
  );

 my $track = $library->{trackList}->{track}->{$title};
 my $track2 = $library->{trackList}->{track}->{$title}->{extension};

print Dumper $track;
print Dumper $track2;

my @liste = (@{$track->{location}});
print "$liste[0]\n";


my @liste2 = (@{$track2->{vlcoption}});
print "$liste2[0]\n";

print Dumper @liste2;

print "$liste2[0]\n";

Code: (dl )

C:\Users\benutzer\Desktop>test.pl
$VAR1 = {
          'extension' => [
                         {
                           'vlcoption' => [
                                          'program=28721'
                                        ],
                           'vlc:id' => '0',
                           'application' => 'http://www.videolan.org/vlc/playli
t/0'
                         }
                       ],
          'location' => [
                        'dvb-s://satno=1:frequency=10744000:voltage=18:srate=22
00000'
                      ]
        };
$VAR1 = [
          {
            'vlcoption' => [
                           'program=28721'
                         ],
            'vlc:id' => '0',
            'application' => 'http://www.videolan.org/vlc/playlist/0'
          }
        ];
dvb-s://satno=1:frequency=10744000:voltage=18:srate=22000000
Not a HASH reference at C:\Users\gutsch\Desktop\test.pl line 24.

Und nun zur eigentlichen Frage. Wie kriege ich es nun hin,dass wenn ich den Titel als Parameter übergebe, den Inhalt von Location und vlcoption zurück geliefert bekomme.

modedit Editiert von GwenDragon: Titel geändert
Last edited: 2013-01-28 15:56:21 +0100 (CET)

+4 replies

Linuxer

2013-01-28 15:41

User since
2006-01-27
3890 Artikel
HausmeisterIn

user image

Im Dump ist nach "extension" eine eckige Klammer zu sehen; d.h. da steckt eine Array Referenz, keine Hash-Referenz.

Deine $track2 hat damit eine Array-Referenz und darin erst wieder eine (oder evtl. mehrere) Hash-Referenzen, die ein "vlcoption" enthalten könnten.

Versuch mal anstatt:

Code (perl): (dl )

my @liste2 = (@{$track2->{vlcoption}});

folgendes:

Code (perl): (dl )

1
2
3

# gehe alle Einträge in @$track2 durch; sollte es eine (wahre) 'vlcoption' geben,
# verwende sie; ansonsten mach nix
my @liste2 = map { $_->{vlcoption} ? $_->{vlcoption} : () } @$track2;

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!

+3 replies

gucci2411

2013-01-29 08:43

User since
2013-01-28
5 Artikel
BenutzerIn
[default_avatar]

Hallo Linuxer,

vielen Dank für den Tipp. Bringt leider nicht den gewünschten Erfolg.
Als Ausgabe erhalte ich nun.

Code: (dl )

1
2
3

C:\Users\benutzer\Desktop>test.pl
dvb-s://satno=1:frequency=10744000:voltage=18:srate=22000000
ARRAY(0x3242898)

Der aktuelle Code sieht nun so aus:

Code: (dl )

  use XML::Simple;
  use strict;
  use warnings;
  use Data::Dumper;

 my $filename = 'channels.xspf';
 my $title     = 'tagesschau24';
  my $library  = XMLin($filename,
   ForceArray => [ 'track', 'location', 'extension', 'vlcoption'],
    KeyAttr    => { track => 'title' }
  );

 my $track = $library->{trackList}->{track}->{$title};
 my $track2 = $library->{trackList}->{track}->{$title}->{extension};

#print Dumper $track;
#print Dumper $track2;

my @liste = (@{$track->{location}});
print "$liste[0]\n";

# gehe alle Einträge in @$track2 durch; sollte es eine (wahre) 'vlcoption' geben,
# verwende sie; ansonsten mach nix
my @liste2 = map { $_->{vlcoption} ? $_->{vlcoption} : () } @$track2;

print "Dumper Ausgabe\n";
print Dumper @liste2;

print "Inhalt von \@liste2\[0\]:\n";
print "$liste2[0]\n";

Dumper Ausgabe von @liste2

Code: (dl )

1
2
3

$VAR1 = [
          'program=28721'
        ];

+2 replies
Linuxer

2013-01-29 09:47
User since
2006-01-27
3890 Artikel
HausmeisterIn
Naja, "vlcoption" enthält selbst auch wieder eine Array-Referenz, die aufgelöst werden muss.

Also dereferenzieren wir auch diese Array-Referenz:
Code (perl): (dl )

1 2 3 4

# gehe alle Einträge in @$track2 durch; sollte es eine (wahre) 'vlcoption' geben, # verwende sie; ansonsten mach nix; Da vlcoption eine Array-Referenz enthaelt, # dereferenzieren wir sie direkt via @{ $array_ref } my @liste2 = map { $_->{vlcoption} ? @{$_->{vlcoption}} : () } @$track2;
Empfohlene Lektüre:
perlreftut
perlref
perllol
perldsc
Last edited: 2013-01-29 09:51:40 +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!
- gucci2411
  
  2013-01-29 11:11
  
  User since
  2013-01-28
  5 Artikel
  BenutzerIn
  
  Super. Es klappt.
  
  Hier habe ich wohl noch einiges an Lernbedarf.
  
  Wenn ich das also richtig verstehe habe ich ein Array in einem Hash in einem Array.
  
  Vielen Dank für deine Hilfe.

View all threads created 2013-01-28 15:31.