Split mit verschiedenen Trennern - #128309 (Allgemeines zu Perl)

Dubu

2009-11-18 23:33

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

Es geht aber auch lustiger, indem man doch splittet und dann vorne und hinten die definierten Felder vom Array abschneidet:

Code (perl): (dl )

#!/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