Punkte-Durchschnittsberechner

durchschnitt.pl

#!/bin/perl
# durchschnitt.pl

use strict;

print "Punkte-Durchschnittsberechner\n";
print '(c) Max Weller <[email protected]>',"\n\n";

die "Bitte gib den Punktespiegel absteigend ein\n" unless ($#ARGV>0);

my $i = 15;
my ($sum,$cnt);
for (@ARGV) {
  $sum+= $i*$_;
  $cnt+= $_;
  print $i, " = ",$_, "\n";
  $i--;
}

print "Durchschnitt: ",($sum/$cnt),"\n";