erweiterte split Funktion (Allgemeines zu Perl)

[thread]15613[/thread]

erweiterte split Funktion

Leser: 23

Articles: hide open all | hide show old branches

+5 replies
robertri

2010-11-09 09:51
User since
2010-11-09
2 Artikel
BenutzerIn
Hallo

Erstmals ein Hallo, da ich hier in diesem Forum neu bin.

Ich habe das Problem das ich von einer Applikation ein strukturiertes Logfile auswerten möchte und die einzelnen Felder in ein Array (mutli) hineinschieben will. Irgendwie funktioniert das split Kommando nicht und vielleicht kann mir jemand behilflich sein.

LogfileSample

EAER 287372 Event ist aufgetreten
ISHEN 938278 Problem mit Modul 1

Dies ist mein nicht funktionierendes Script
Code: (dl )

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

#!C:\\Programme\\Perl\\bin open(FILE, "<xact2") or die "Kann File nicht oeffnen"; while(<FILE>) { chomp; next if ($_ =~ m/^\!/); ($event, $id, $msg) = split(/^(\w+)\s+(\d+)\s+(.+)/g); push(@data, [$event, $id, $msg]); #push(@data, $_); } close(FILE); for ($i=0; $i<=$#data; $i++) { print "$i\n"; print "0 = $data[$i][0], 1 = $data[$i][1], 2 = $data[$i][2], 3 = $data[$i][2]\n"; }
Ich möchte nun für jeden Zeileneintrag die drei Felder im Array befüllen
$event, $id, $msg

Vielen Dank für Eure Tipps
Robert
Last edited: 2010-11-09 09:54:42 +0100 (CET)
- Crian
  
  2010-11-09 09:57
  User since
  2003-08-04
  5867 Artikel
  ModeratorIn
  Code: (dl )
  
  ($event, $id, $msg) = split(/^(\w+)\s+(\d+)\s+(.+)/g);
  
  Das dürfte das Problem sein. Split unterteilt einen String und schneidet das angegebene (als regulären Ausdruck) aus.
  
  Vermutlich möchtest du
  
  Code: (dl )
  
  ($event, $id, $msg) = /^(\w+)\s+(\d+)\s+(.+)/;
  
  haben, aber ich bin mir nicht sicher. Am besten zeige uns mal die Zeilen, wie sie aussehen und was du erreichen willst.
  Last edited: 2010-11-09 09:58:23 +0100 (CET)
  s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
  
  use strict; use warnings; Link zu meiner Perlseite
- +3 replies
- GwenDragon
  
  2010-11-09 10:13
  User since
  2005-01-17
  14746 Artikel
  Admin1
  Der Parameter für split ist das Muster (Regex) für das Trennzeichen.
  Du wolltest wohl nur einen Regex matchen.
  
  Also statt:
  
  Code (perl): (dl )
  
  ($event, $id, $msg) = split(/^(\w+)\s+(\d+)\s+(.+)/g);
  
  sollte es so lauten:
  
  Code (perl): (dl )
  
  ($event, $id, $msg) =~ m/^(\w+)\s+(\d+)\s+(.+)/g;
  
  Du solltest dir auch angewöhnen als erste Zeilen deines Programms:
  
  Code (perl): (dl )
  
  1 2
  
  use strict; use warnings;
  
  einzufügen, damit Perl dir bestimmte Programmierfehler zeigt.
  
  Zudem ist die Verwendung eines lexikalischen Filehandles sinnvoll: WasIsteinLexikalischerFileHandle
  
  //EDIT: Unsinn über Array gelöscht
  Last edited: 2010-11-09 10:25:29 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - robertri
    
    2010-11-09 10:40
    
    User since
    2010-11-09
    2 Artikel
    BenutzerIn
    
    Vielen Dank
    
    Werd mir das mal ansehen
    - Gast Martin
      
      2010-11-09 16:35
      
      oder vielleicht reicht auch folgendes.
      
      Code (perl): (dl )
      
      my ($event, $id, $msg) = split( /\s+/, $_, 3);
      
      die 3 sagt, dass der string $_ in maximal 3 teile aufgesplittet werden soll...
      Last edited: 2010-11-09 16:38:30 +0100 (CET)

View all threads created 2010-11-09 09:51.