#!/usr/bin/perl -w #mroh 11.1.99 #made output something more beutiful (6.2.2000) @a=<>; for(@a) { chomp; s/,/\./g; if (/^(\D+)- ?(\D+)(\d(\.\d)?) ?\: ?(\d(\.\d)?)/) { $verein1=$1; $verein2=$2; $erg1=$3; $erg2=$5; $verein1 =~ s/ *$//; $verein2 =~ s/ *$//; $vereine{$verein1}[0]+=$erg1; $vereine{$verein2}[0]+=$erg2; $vereine{$verein1}[1]+=mpunkte($erg1,$erg2); $vereine{$verein2}[1]+=mpunkte($erg2,$erg1); $vereine{$verein1}[2]{$verein2}=$erg1;$vereine{$verein2}[2]{$verein1}=$erg2; # print "$verein1-$verein2 $erg1:$erg2\n"; } } @arr=reverse sort {return $vereine{$a}[1]>$vereine{$b}[1]?1:$vereine{$a}[1]<$vereine{$b}[1]?-1:$vereine{$a}[0]==$vereine{$b}[0]?0:$vereine{$a}[0]>$vereine{$b}[0]?1:-1} keys %vereine; print "\n"; print ""; foreach $key2 (@arr) { if ($key eq $key2) { print ""; } print "\n"; print "\n"; $i++; } print "

pl	Name"; for($i=1;$i<12;$i++) { print"	$i"; } print "	Punkte	Brett"; $i=1; foreach $key (@arr) { print "
$i.	$key	***"; } else { print "	"; } if (defined $vereine{$key}[2]{$key2}) { print "$vereine{$key}[2]{$key2}"; } else { print " "; } print "	$vereine{$key}[1]	$vereine{$key}[0]

"; sub mpunkte() { return $_[0]>$_[1]?2:$_[0]==$_[1]?1:0; # return $_[0]>4?2:$_[0]==4?1:0; }