XML Parsing aus Logfiles (Allgemeines zu Perl)

[thread]13349[/thread]

XML Parsing aus Logfiles

Tags: XML Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+3 replies
Gast remo

2009-04-07 15:21
Hallo zusammen,

ich muss Daten aus Logfiles parsen und bin auf der Suche nach einem geeigneten Tool/Modul.
Die Daten sehen in etwa so aus:
Code: (dl )

1 2

Arg 0: <Session><clientIdentifier>PC01</clientIdentifier><appInstance>Server_01</appInstance><requestCorrelator>Server_01-1239098064359-1279122</requestCorrelator><armRequestCorrelator>ADR6AAAAAAABNkfWAAABH/QnnmWhL8Q8mrvtZB1AIEoykmMMvbqFApHpmmxKE2gX8T/KBg==</armRequestCorrelator><defaultOrigin>FRA</defaultOrigin></Session> Arg 1: <BncfInput><date>07APR09</date><origin>FRA</origin><Code>001</Code><Nr>024</Nr><status>-1</status></BncfInput>
Nun benötige ich hieraus folgenden Daten
clientIdentifier
Date
Origin
Code
Nr

Mit was kann ich das am Besten bewerkstelligen. Falls möglich wäre ein kleiner Code sehr von nutzen für mich.
Vielen Dank für eure Vorschläge.

Beste grüsse
r.
- Gast wer
  
  2009-04-07 15:33
  Ganz schnell aus der holen Hand.
  Wenn die XML-Struktur anders ist, anpassen...
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  use XML::Simple; my $xml=XMLin("datei.xml") or die "$!"; for my $sesstion ($xml->{"MessageRoot"}->{Session}) { my $ci = $session->{clientIdentifier}; my $dt = $session->{BncfInput}->{date}; my $or = $session->{BncfInput}->{origin}; my $cd = $session->{BncfInput}->{Code}; my $nr = $session->{BncfInput}->{Nr}; print "$ci : ($dt,$or,$cd,$nr)"; }
- Linuxer
  
  2009-04-07 15:33
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Schau Dir mal XML::Simple an.
  Das sollte auch XML Strings einlesen können (so könntest Du die Logdatei zeilenweise verarbeiten, vorausgesetzt, dass es pro Zeile ein gültiges XML Konstrukt gibt.
  Die eingelesenen Daten können dann - IIRC - beispielsweise als Hash-of-Hashes ausgewertet werden (siehe perldoc perldsc).
  
  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!

View all threads created 2009-04-07 15:21.