Shell Programming and Scripting

#!/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; 
}

#!/usr/bin/perl 

# Always do this as it will make life easier inb the long run
use strict;
use warnings;

print "Enter the number of names to generate: ";
my $count = <STDIN>;
print "Enter the number characters per name: ";
my $lim = <STDIN>;

# if you want to use a pre-set size call gen_names($count,8)
print_names(gen_names($count, $lim));

sub gen_names{
    my($count, $lim) = @_;
    my @names; # The array we redturn
    for (1..$count){
        my $name; # set name variable to empty
        for (1..$lim) {
            $name .= rand_char();
        }
        push @names, ucfirst($name);
    }
    return @names;
}

sub rand_char{
    my @charset = ('a'..'z');
    return $charset[int(rand(@charset))];
}

#Split the generation and presentation logic so you can reuse the code 
sub print_names{
    my @names = @_;
    for my $name (@names){
        print "$name\n";
    }
}

#!c:\perl\bin\per.exe

use strict;
use warnings;
use DBI;
my $username = 'root';
#my $password = 'ajitteli';
my $database = 'register';
my $server = 'localhost';

my ($fname, $lname, $userid, $email, $lim, $count, @fnames, @lnames, @userids, @emails);
my @charset = (('A'..'Z'), ('a'..'z'));
my $edomain = '@domain.com';
#my $range = $#charset +1; # Note in a scalar context an array returns the number of elements
print "Enter the number of names to generate: ";
chomp($count = <STDIN>);
#print "Enter the number characters per name: ";
#chomp($lim = <STDIN>);
$lim = 6;
for (1..$count){
    $fname="";
    for (1..$lim) {

        $fname .= $charset[int(rand(@charset))];
    }
    push @fnames, $fname;
}
for (1..$count){
    $lname="";
    for (1..$lim) {

        $lname .= $charset[int(rand(@charset))];
    }
    push @lnames, $lname;
}
 for (1..$count){
    $userid="";
    for (1..$lim) {

        $userid .= $charset[int(rand(@charset))];
    }
    push @userids, $userid;
}

for (1..$count){
    $email="";
    for (1..$lim) {

        $email .= $charset[int(rand(@charset))];
        $email .= $edomain;
    }
    push @emails, $email;
}

my $dbh = DBI->connect("DBI:mysql:$database;host=$server", $username)
|| die "Could not connect to database: $DBI::errstr";

#Split the generation and presentation logic so you can reuse the code
for my $fname (@fnames) && for my $lname (@lnames) && for my $userid (@userids) && for my $email (@emails)){


my $dataenter = "insert into login (Firstname, Lastname, Userid, Emailid) values ('$fname', '$lname', '$userid', '$email')";

my $sth = $dbh->prepare($dataenter);
$sth->execute
or die "SQL Error: $DBI::errstr\n";


# my $insert_reg = $dbh->(q{insert into Registration (Student_Name) values (?)}) or die $dbh->errstr;
}
$dbh->disconnect();
print "The database table is updated successfully\n";

"my" variable $lname masks earlier declaration in same scope at entries.pl line
63.
"my" variable @lnames masks earlier declaration in same scope at entries.pl line
 63.
"my" variable $userid masks earlier declaration in same scope at entries.pl line
 63.
"my" variable @userids masks earlier declaration in same scope at entries.pl lin
e 63.
"my" variable $email masks earlier declaration in same scope at entries.pl line
63.
"my" variable @emails masks earlier declaration in same scope at entries.pl line
 63.
syntax error at entries.pl line 63, near ") &&"
syntax error at entries.pl line 74, near "}"
Execution of entries.pl aborted due to compilation errors.

for (1 to count) 

generate 1 random fname 
generate 1 random lname 
generate 1 random userid 
generate 1 random email

connect to database
insert to database 
 disconnect; 
}