#!/usr/bin/perl

###############################################################################
#                                                                             #
#               MKRandom - Generate random numbers for generic purposes       #
#                                                                             #
#               All rights reserved. Copyright (C) 2007                       #
#               Dipl.-Ing. Markus Robert Kessler                              #
#               Bad Schussenried, Germany                                     #
#                                                                             #
#               For latest updates see http://developer.dipl-ing-kessler.de   #
#                                                                             #
###############################################################################
#                                                                             #
#               Purpose:                                                      #
#                                                                             #
###############################################################################

$anzahl=$ARGV[0];
$schrittweite=$ARGV[1];
$mind_laenge=$ARGV[2];
if ( $mind_laenge eq '' ) {
    $mind_laenge = '1';
}

if ( $anzahl eq '' ) {
   print "\nDimke MKRandom - Erzeugung von Zufallszahlen.\n\n";
   print "Fehler: Parameterformat falsch.\n";
   print "Aufruf: mkrandom Anzahl Schrittweite \[Mindestlaenge\]\n";
   print "Not OK.\n";
}

srand(time() ^ ($$ + ($$ << 15)) );

for ( $aktuell=0 ; $aktuell < $anzahl ; $aktuell++ ) {
    $ausgabe = $aktuell * $schrittweite + int ( rand ( $schrittweite ) );
    printf ( "%0${mind_laenge}i\n" , $ausgabe );
}

exit (0);
