Split mit verschiedenen Trennern (Allgemeines zu Perl)

[thread]14263[/thread]

Split mit verschiedenen Trennern

Leser: 18

Articles: hide open all | hide show old branches

+5 replies
rk-ger

2009-11-18 19:43
User since
2006-08-07
45 Artikel
BenutzerIn
Hallo,
ich habe viele Zeilen in dieser Art
Code: (dl )

1 2 3

4 02.11.2009 Lastschrift 02.11.2009 -1,11 5 03.11.2009 Lastschrift ec-cash 02.11.2009 -111,11 6 04.11.2009 Gutschrift 04.11.2009 1.111,11
Die möchte ich mit split in seine einzelnen Bestandteile zerlegen:

nummer, datum1, text, datum2, wert

Split mit whitespace als Trenner war meine erste Idee. Aber leider gibt es immer mal wieder Texte mit mehr als einem Wort (z. B. Lastschrift ec-cash). Gibt es einen split, der mit verschiedenen Trennern operieren kann? Sonst fällt mir nur noch ein, die Zeile Wort für Wort durchzuparsen und hinterher zusammenzusetzen. Da ich das aber ein paar 100000 mal machen muss, befürchte ich Performanceprobleme. Ich würde mich über jede Idee freuen. Vielen Dank im Voraus.

Gruß
Richard
- +2 replies
- pq
  
  2009-11-18 19:49
  User since
  2003-08-04
  12208 Artikel
  Admin1
  versuchs mal so:
  
  Code (perl): (dl )
  
  1 2 3
  
  if ($line =~ m/^(\d+) (\d{2}\.\d{2}\.\d{4}) (.*?) (\d{2}\.\d{2}\.\d{4}) (-?[.\d]+,?\d*)$/) { print "($1 | $2 | $3 | $4 | $5)\n" }
  
  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
  - rk-ger
    
    2009-11-18 23:00
    
    User since
    2006-08-07
    45 Artikel
    BenutzerIn
    
    Klammern! Danke. Manchmal sieht man den Wald vor lauter Bäumen nicht.
    
    Gruß
    Richard
- renee
  
  2009-11-18 19:50
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Da split einen Regulären Ausdruck als "Trenner" akzeptiert, kannst Du da so etwas machen:
  
  Code: (dl )
  
  my @parts = split /\sec-cash\s|\s/,$string;
  
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
- Dubu
  
  2009-11-18 23:33
  User since
  2003-08-04
  2145 Artikel
  ModeratorIn + EditorIn
  Es geht aber auch lustiger, indem man doch splittet und dann vorne und hinten die definierten Felder vom Array abschneidet:
  
  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; while (my $zeile = <DATA>) { my @arr=split " ", $zeile; my ($nummer, $datum1) = splice @arr, 0, 2; my ($datum2, $wert) = splice @arr, -2, 2; my $text = join " ", @arr; print "Nummer: $nummer, Datum1: $datum1, Datum2: $datum2, Wert: $wert, Text: $text\n"; } __DATA__ 4 02.11.2009 Lastschrift 02.11.2009 -1,11 5 03.11.2009 Lastschrift ec-cash 02.11.2009 -111,11 6 04.11.2009 Gutschrift 04.11.2009 1.111,11

View all threads created 2009-11-18 19:43.