#!/usr/bin/perl -w use CGI; my $cgi = new CGI; # neues Objekt erstellen # Content-type fuer die Ausgabe #print $cgi->header(-type => 'text/html'); print "Content-type: text/html\n\n"; # die datei-daten holen my $file = $cgi->param("Tour"); my $directory = "../rallyefiles"; print < Teilnehmerliste

Teilnehmerliste

HTML # dateinamen erstellen u my $fname = $directory ."/". $file; #print "Filename:".$fname; open (DAT,"<".$fname) or die 'Error processing file: ',$!,'\n'; @datei = ; closedir(DAT); select (STDOUT); #print DAT $Dname,$tab,$Dvorname,$tab,$Cname,$tab,$Cvorname,$tab,$KFZ,$tab,$kennz,$tab,$BJ,$tab,$str,$tab,$PLZ,$tab,$Ort,$tab,$Land,$tab,$email,$tab,$tel,$tab,$sonstiges,$crlf; #print DAT $TName,$tab,$WNummer,$tab,$Dname,$tab,$Dvorname,$tab,DNation,$tab,$Cname,$tab,$Cvorname,$tab,$CNation,$tab,$KFZ,$tab,$kennz,$tab,$BJ,$tab,$sonstiges,$tab,$str,$tab,$PLZ,$tab,$Ort,$tab,$Land,$tab,$email,$tab,$tel,$tab,$startnr,$tab,$accepted,$tab,$paid,$crlf; #0 TName #1 WNummer #2 TKlasse #3 DName #4 DVorname #5 DNation #6 DClub #7 CName #8 CVorname #9 CNation #10 CCLub #11 KFZ #12 Kennz #13 BJ #14 Sonstiges #15 Str #16 PLZ #17 Ort #18 Land #19 email #20 tel # #21 startnr #22 accepted #23 paid print "

"; #print ""; print ""; $evenodd=0; foreach $line (@datei){ $a=chomp($line); if ($a) { print ""; @column = split (/\t/, $line); print ""; print ""; # Team print ""; # Nachnamen print ""; print ""; print ""; } } print "
StartnrTeamFahrer/BeifahrerKFZ/BJStatus
$column[21]$column[0]$column[3]/$column[7]$column[11]
$column[13]		$column[22]
"; print ""; print "";