Generate random names

[Srijith B]

HI all
I am trying to write a perl script to generate random names ed. ( Qrhfh, Jdfhdh, Dfkjns) etc.

So the script should ask me the number of random names and when I give say 4, It should give me four random names and then it should insert these names into the sql database to a table which is already created.

Here is my code.

#!/usr/bin/perl
my $name;
my @charset = (('A'..'Z'), ('a'..'z'));
my $range = $#charset + 1;
print "Enter the limit\n";
$lim = <STDIN>;
 
until ($lim == 0){
for (1..8) {
   $name .= $charset[int(rand($range))];
}
print "$name\n";
$lim = $lim - 1;
}
 

I have a problem in this code,
say when I run this script and enter 6

It gives me the following weird output.

wFposZwA
wFposZwAHnAEHiei
wFposZwAHnAEHieiJLNQZiTW
wFposZwAHnAEHieiJLNQZiTWzxOUiiru
wFposZwAHnAEHieiJLNQZiTWzxOUiiruHdinQLkp
wFposZwAHnAEHieiJLNQZiTWzxOUiiruHdinQLkpdLwNtOYW

I dont want it to have same prefix in the front and secondly I don't want its length to increase.

Anyone got a clue wats happening ?

[miller]

Always limit the scope of your variables to the smallest space available. Also add use strict; and use warnings; to the beginning of all scripts:

#!/usr/bin/perl
 
use strict;
use warnings;
 
my @charset = ('A'..'Z', 'a'..'z');
 
print "Enter the limit\n";
chomp(my $lim = <STDIN>);
 
for (1..$lim) {
    my $name = join '', @charset[map {int rand @charset} (1..8)];
    print "$name\n";
}