Opened by hugenyn at 2011-04-05 12:50
User since
2010-10-05
65 Artikel
BenutzerIn
2010-10-05
65 Artikel
BenutzerIn
Folgende Textzeilen sollen eingelesen werden.
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).
Der Code funktioniert, aber - es geht doch gewiss eleganter?
Last edited: 2011-04-05 13:11:38 +0200 (CEST)
QuoteName1 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)