Linuxer+2008-01-13 18:46:06--

es kann sein, dass, wenn kein Argumente mitgegeben wurden, Perl meckert, weil $ARGV[0] und $ARGV[1] (generell @ARGV) uninitialisiert sein dürfte. Das kannst Du so abfangen:

Code (perl): (dl )

1
2

my $init_popsize = defined $ARGV[0] ? $ARGV[0] - 1 : 10 ; # wenn keine Angabe dann 10 annehmen
my $maxtime = defined $ARGV[1] ? $ARGV[1] : 10; # wenn keine angabe dann 10 Durchläufe machen

1
2

my $init_popsize = shift @ARGV  || 10 ; # wenn keine Angabe dann 10 annehmen
my $maxtime = shift @ARGV || 10; # wenn keine angabe dann 10 Durchläufe machen