Seite 3: Listing 1: Zufallszahlen per srand()

Inhaltsverzeichnis

Listing 1: Zufallszahlen per srand()

#!/usr/bin/perl -w

srand( time() );
for ( $i = 0; $i < 200; $i++ )
{
     $TAN[ $i ] = int( rand( 1000000 ) );
     printf( "%06d\n", $TAN[ $i ] );
}


(dab)