Dieter Kroemer wrote:
Am Mittwoch, 24. September 2003 00:16 schrieb Dieter Kroemer:
P.S.: ich komme demnächst bestimmt noch dazu das ganze zu testen.
Ich habe jetzt getestet und es scheint, dass das folgende Script funktioniert. geändert wurden folgende Zeilen : s/,//g; @line = split /"/; $Klasse = $line[103]; print OUT "$line[5]:$line[11]:$line[19]:$Klasse\n";
Das gesamte Script lautet dann:
#!/usr/bin/perl -w
open OUT,">userlist.txt";
print OUT "NACHNAME:VORNAME:GEBURTSTAG:KLASSE\n";
while(<>) { s/,//g; @line = split /"/; $Klasse = $line[103]; $Klasse =~ s/^0//g; $Klasse =~ s/ //g; $Klasse =~ s/\/4//g; $Klasse = uc($Klasse); print OUT "$line[5]:$line[11]:$line[19]:$Klasse\n"; }
Viele Grüße Dieter
Könnte das evtl. so in den SLSS übernommen werden? Oder wurde es schon? Fragen über Fragen...