Saturday, August 16, 2014

Perl Subroutine to get random

Generate random number with given number of digits

sub getRandomNum {
     my $count = shift;
     return  join('', map {  int(rand(9)) } (1 .. $count) );
}

Generate random word with given number of characters

sub getName{
    my $count = shift;
    return join ('',map { ('a'..'z')[rand 26] } 0 .. $count);
}