Mega Code Archive

 

Categories / Perl / System Functions

 

Generate random numbers

#!/usr/bin/perl  print "Content-Type: text/html \n\n";  $random_number = rand(10);  print "<p>Your Auto Lucky Number from 1 to 10 is $random_number.</p>\n";  $random_integer = int(rand(10)) + 1;  print "<p>Your Auto Lucky Integer from 1 to 10 is $random_integer.</p>\n";  print "Click the Reload button on your browser to get a new random number.";