Thread Namen aus String extrahieren (11 answers)
Opened by hugenyn at 2011-04-05 12:50

hugenyn
 2011-04-05 12:50
#147390 #147390
User since
2010-10-05
65 articles
BenutzerIn

user image
Folgende Textzeilen sollen eingelesen werden.

Quote
Name1 2005 5 112 165 198 287 814.7 910
Name2, W. 2005 4 127 162 193 279 314 430
Name3 Vorname 2006 8 110 192 282 314.3 870

Der Namensteil am Anfang des Strings soll das erste Element eines Arrays sein.
Das/die Leerzeichen zwischen dem Namen und der folgenden Zahl sollen eliminiert werden (in der Datei können Tabs und mehrfache Leerzeichen vorkommen).
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
        while (<RE>)
        {
                chomp;
                s/\s+/ /g;
                /[A-Za-z]*\,?\s?[A-Za-z]*\.? /;
                my @felder = split / /,$';
                (my $str = $&) =~ s/\s+$//;
                unshift(@felder,$str);
                push(@daten,\@felder);
        }
  close RE;

Der Code funktioniert, aber - es geht doch gewiss eleganter?
Last edited: 2011-04-05 13:11:38 +0200 (CEST)

View full thread Namen aus String extrahieren