FlorianL+2007-11-07 15:30:16--

Code: (dl )

1
2

my $length = $#db + 1;
print $db[int rand($#db)];

das macht man ueblicherweise so:

das int() ist ueberfluessig. perl weiss schon, dass man als arrayindex
keine kommazahl moechte. das $#db ist falsch. $#db ist nicht die laenge des
arrays! wie du lustigerweise eine zeile drueber selbst schreibst, aber
$length nie benutzt.