Gast+2008-07-04 15:12:37--

Code (perl): (dl )

1
2
3
4
5

sub addPositions(){
        my $classname  = shift;         # 1. Parameter Klassenname
        my @pos = shift;                    # <---- SORRY ??? 
        push @positions, @pos; 
};