Thread Eine Zeile mehrfach mit verschiedenen Spalten auslesen?
(10 answers)
Opened by pktm at 2010-05-26 19:37
ungetestet:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 my $line='id, lang1_bez, lang1_url, lang2_bez, lang2_url, lang3_bez, lang3_url'; my @data=split_line($line); print join(', ',@$_)."\n" for(@data); sub split_line { my $line=shift; my @ret=(); my @elm=split(/,\s*/,$line); my $id=shift(@elm); while(my ($bez,$url)=splice(@elm,0,2)) { my ($lang)=$bez=~/^(.+?)_/; push(@ret,[$id,$lang,$bez,$url]); } return @ret; } EDIT: Ergänzung wegen Spache. EDIT: Fehler korrigiert. Last edited: 2010-05-26 20:27:38 +0200 (CEST) |