System Functions Perl

  1. Home
  2. Perl
  3. System Functions
  4. Formula to produce random numbers between 5 and 15 inclusive
#!/usr/bin/perl
$x=5 ;   
$y=15;   
# Formula to produce random numbers between 5 and 15 inclusive
# $random = int(rand($y - $x + 1)) + $x;
# $random = int(rand(15 - 5 + 1)) + 5
while(1){
    print int(rand($y - $x + 1)) + $x , "\n";
    sleep 1;
}