Ausgabe aus Array (Allgemeines zu Perl)

[thread]17911[/thread]

Ausgabe aus Array

Tags: perl5 regex Ähnliche Threads

Leser: 26

Articles: hide open all | hide show old branches

+11 replies
tejste

2012-11-15 17:36
User since
2012-11-15
21 Artikel
BenutzerIn
Hallo an die Perlprogrammierer,

bin noch nicht so lange beim Perlprogrammieren, aber mittlerweile mag ich die Sprache, obwohl sie mich manchmal verzweifeln lässt wie heute.
Ich sitze seit einiger Zeit an einem Problem was wahrscheinlich peinlich simpel ist, aber ich finde keine Lösung. Vielleicht könnt Ihr mir helfen, das wäre super. Aus einem Logfile welches Abschnittsweise so aussieht:
Code: (dl )

1 2 3

<Method>ValidateUser</Method> <UserName>av00012</UserName> <Path>//hv01.usergroup.avnet.eu</Path>
und unfähr 1000 Einträge derselben Struktur hat, brauche ich den String der zwischen den <UserName> Tags steht. Den genauen Regex Ausdruck bastel ich mir selbst zusammen, ich möchte gern als Hilfe wissen wie alles was nach <UserName>kommt ausgegeben werden kann. Mein Code sieht so aus (ich habe das ganze "use" Zeug mal weggelassen aber im Code ist es natürlich):-):
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

my $logfiles ="C:/test/xunix/logfile_tracefiles/TraceLog_.txt"; open(DATEI,$logfiles); my @vektor = <DATEI>; my $seek=~m/UserName(.+)/; for(my $i=0; $i<=$#vektor; $i++) { if($vektor[i]=~$seek) { print $1; } }
Leider liefert mir Perl nichts zurück?.Was mache ich falsch? Wäre toll wenn mir einer einen Tipp geben könnte

modedit Editiert von pq: code-tags für xml
Last edited: 2012-11-15 17:41:08 +0100 (CET)
- +2 replies
- Raubtier
  
  2012-11-15 17:48
  User since
  2012-05-04
  1076 Artikel
  BenutzerIn
  Erstens: bitte benutze die open-Form mit 3 Argumenten und frag den Erfolg ab. Hatten wir hier gerade erst wieder in einem anderen Thread.
  
  Des weiteren bitte warnings und strict benutzen.
  Das hier: my $seek=~m/UserName(.+)/; sucht in $seek, das undef ist! Du hast aber die Datei nach @vektor eingelesen.
  
  Code: (dl )
  
  1 2 3 4 5
  
  my $logfiles ="TraceLog_.txt"; open(my $FH, '<', $logfiles) or die $!; while (my $line = <$FH>) { print "Found: $1\n" if $line =~ m!<UserName>(.*)</UserName>!; }
  
  Edit: Ah, verstehe jetzt: mit dem $seek wolltest du eine Regexp in eine Variable speichern. Das geht mit qr. Siehe perldoc perlop.
  Last edited: 2012-11-15 18:15:08 +0100 (CET)
  - tejste
    
    2012-11-16 09:15
    
    User since
    2012-11-15
    21 Artikel
    BenutzerIn
    
    Hallo tut mir leid, ich werde mich bessern.. hoffe ich mal!
    Ich will den Code später noch dahingehend erweitern, um den Pfad oder die Regex über Konsole einlesen zu können, deshalb den Umweg über die Variable.
- +2 replies
- lichtkind
  
  2012-11-15 17:51
  
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  
  freut mich freude an Perl findest.
  
  für sowas gibts schon fertige Module, da brauchst dich nicht abmühen. da du nur kleinen ausschntt zeigtest, seh ich nicht ob es xml oder conf ist, das du mit einem befehl mit dem Modul wie XML::Simple oder Config::General einliest
  Last edited: 2012-11-15 18:56:36 +0100 (CET)
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - tejste
    
    2012-11-16 09:19
    
    User since
    2012-11-15
    21 Artikel
    BenutzerIn
    
    Hallo vielen Dank, das ist ein xml was ich auslese, aber ich bin naiv davon ausgegangen das das egal ist, ich dachte Perl erkennt das als Array wegen den Zeilenumbrüchen.
- pq
  
  2012-11-15 17:56
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  generell: ich schlage vor, mal ein modernes tutorial durchzuarbeiten, z.b. Modern Perl.
  Hier findest du mehrere: http://perl-tutorial.org/
  so bekommst du von anfang an saubere techniken beigebracht, die dir auch helfen, fehler zu vermeiden bzw. nicht ewig nach fehlern zu suchen.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- Linuxer
  
  2012-11-15 18:23
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Das "use Zeug" ist mehr als nur "Zeug"... Diese Statements dürfen gerne auch gezeigt werden ;)
  
  Zusätzlich zum Fehler, den Raubtier bereits angemerkt hat: Deine Zählervariable heisst $i und nicht i (in Zeile 7)...
  
  Hier mal eine ungetestete Überarbeitung Deines Codes:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  #! /usr/bin/perl use strict; use warnings; my $logfile ="C:/test/xunix/logfile_tracefiles/TraceLog_.txt"; open( my $infh, '<', $logfile ) or die "open($logfile,ro) failed: $!\n"; my $seek = qr{<UserName>(.+?)</UserName>}; # direkt zeilenweise lesen; spart RAM (und die Zaehlervariable) while ( my $line = <$infh> ) { if ( $line =~ $seek ) { print $1, "\n"; } } close $infh;
  
  Die Tipps von lichtkind und pq sind auch nicht zu verachten!
  
  edit: Code korrigiert; Regex Begrenzer ausgetauscht (gab Syntax-Fehler), Regex korrigiert.
  Testlauf mit obigen XML-Schnipsel ergibt:
  
  Code: (dl )
  
  1 2
  
  $ perl t.pl av00012
  
  Last edited: 2012-11-16 11:27:56 +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!
- +2 replies
- topeg
  
  2012-11-16 10:40
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Es ist richtig Perl benutzt "\n" als Zeilentrenner, wenn nichts anderes Angeben ist. Unter Windows ist das "\x0D\x0A" unter Linux/Unix "\x0A". Je nach OS kann der Trenner anders sein. XML Auf der anderen Seite kennt keine Zeilen und damit Zeilentrenner. Alle Umbrüche werden wie Leerzeichen behandelt. Das bedeutet für dich, du kannst dir nicht sicher sein, dass eine Zeile auch immer einen Datensatz enthält und das der Zeilentrenner immer dem entspricht was auf dem System verwendet wird.
  Ich nehme mal an das du das alles weißt und geprüft hasst. Alle Datensätze sind gleich formatiert sind und die Zeilenumbrüche korrekt erkannt werden.
  
  Das einlesen aller Zeilen in ein Array um dann ein paar wenige Zeilen auszugeben ist nicht sonderlich sinnvoll. Du packst ~110000Byte in den Speicher um ein paar Byte auszugeben. In dem Fall ist es sinnvoller eine Zeile zu lesen, diese zu prüfen und dann aus zu geben.
  
  Das hier my $seek=~m/UserName(.+)/; prüft ob undef "UserName"mit zusätzlichen Zeichen enthält.
  Was du vermutlich willst ist:my $seek=qr/UserName(.+)/; qr erzeugt (vorkompiliert) einen regulären Ausdruck. =~ wendet ihn an.
  
  for(my $i=0; $i<=$#vektor; $i++) Das ist eine umständliche Schreibweise für for my $i (0..$#vektor)
  
  Was du eher schreiben solltest ist:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  for my $line (@vektor) { if($line=~$seek) { print $1; } }
  
  Insgesamt sollte der Code besser so aussehen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  #!/usr/bin/perl use strict; use warnings; my $logfiles = 'C:\test\xunix\logfile_tracefiles\TraceLog_.txt'; my $seek = qr/UserName(.+)/; $/="\x0A"; # gemeinsamer Nenner für Windows/Linux/Unix open(my $fh, '<', $logfiles) or die "Can't open $logfiles ($!)\n"; while(my $line=<$fh>) { if($line=~$seek) { print $1; } } close($fh);
  - tejste
    
    2012-11-16 11:15
    
    User since
    2012-11-15
    21 Artikel
    BenutzerIn
    
    Hallo topeg,
    das war super hilfreich und ich habe das in den Tutorial nirgends so einfach beschrieben gefunden. Ich habe in der Tat Stichproben getestet ob ein Datensatz das ist was ich annehme das er es ist. Das zeilenweise Überprüfen ist auf jeden Fall sinnvoll und ich habe das auch so übernommen, da XML Logs ziemlich gross werden können. Die For Schleife ist eher Macht der Gewohnheit aus einer anderen Sprache, die etwas cryptische Perl Sprache muss ich erst mal verinnerlichen:-). Aber trotz allem... ich habe alle Tipps der Experten in verschieden kleinen Modulen getestet, das Ergebnis ist überall gleich... leer. So langsam könnte ich mir vorstellen das ein Bildschirm auf der Strasse auch ganz gut aussieht....aaarghh :-)
- +2 replies
- tejste
  
  2012-11-16 11:48
  
  User since
  2012-11-15
  21 Artikel
  BenutzerIn
  
  Hallo.. vielen Dank an Euch,
  
  in der Tat waren es nur Kleinigkeiten aber jetzt funktioniert alles so wie ich mir das vorgestellt habe. Gruss tejste
  - GUIfreund
    
    2012-11-16 12:10
    
    User since
    2011-08-08
    559 Artikel
    BenutzerIn
    
    2012-11-16T10:48:43 tejste
    in der Tat waren es nur Kleinigkeiten aber jetzt funktioniert alles so wie ich mir das vorgestellt habe.
    
    Dein ganzes "use" Zeug hattest du nicht gezeigt. Waren use strict; und use warnings; darunter? Vermutlich nicht. Dieses Zeug hätte dich auf einige deiner Kleinigkeiten aufmerksam gemacht.
    Gruß
    GUIfreund

View all threads created 2012-11-15 17:36.