Creating Random Strings

[BryanY]

Basically I would like to be able to specify a string length and generate a random string value.

EX: string length = 7 output: fwirvbt

I presume that I would use the rand() function, but I'm not sure how i would use it to generate character values.

Thanks!

 

[TrojanWarBlade]

maybe create an array of all 26 letters and then loop 7 times grabbing chars based on a random index of 0-25.


Trojan.

 

[aardvark92]

I'm not a Perl expert, so there is probably a more elegant way to do this, but the following is code from a script I wrote recently. This chooses four letters and two digits at random:

  for($count = 0; $count < 4; $count++) {
    $data[$count] = chr(int(rand(26))+65);
  }
  for($count = 4; $count < 6; $count++) {
    $data[$count] = int(rand(10));
  }

 

[KevinADC]

my @char_set = ('a'..'k', 'm'..'n', 'p'..'z');
my $random = '';
$random .= $char_set[rand(@char_set)] for (1..7);
print $random;

note that l (L) and o (O) are missing because they look too much like 1 (one) and 0 (zero), but just use:

my @char_set = ('a'..'z');

if you want to include them.

 

[tchatzi]

How about this

print "give me length: ";
$length = <STDIN>;
chomp $length;
@chars = (97..122);
print "Randon string with $length characters: ";
print chr $chars[int(rand(27))] for (1..$length);
print "\n";

``The wise man doesn't give the right answers,
he poses the right questions.''
TIMTOWTDI