use DBI;
#Welcoming Phrase
print "\n\n Welcome to the world.\n\n";
#Load username database
print " Are you a new user? (y/n)\n\n";
my $choice=<STDIN>;
chomp $choice;
if ($choice eq "n") {
print " What is your username?\n\n";
my $username = <STDIN> ;
chomp $username;
my $connect = DBI->connect(
"dbi:mysql:database=Champ;host=localhost", 'root','pass');
print "User $username Active\n";
}
if ($choice eq "y") {
print " What would you like your username to be?\n\n";
my $newuser = <STDIN>;
chomp $newuser;
my $connect = DBI->connect(
"dbi:mysql:database=Champ;host=localhost", 'root','pass');
my $dbh->do("DROP TABLE IF EXISTS $newuser");
$maketable = ("CREATE TABLE $newuser (A,B,C,D,E)");
my $sql = "INSERT INTO $newuser (A,B,C,D,E) VALUES (?,?,?,?,?)";
$sth = $dbh->prepare($maketable);
$sth = execute();
$statement = $connect->prepare($sql);
$statement = execute(4,4,4,4,0);
print "User $newuser Active\n";
|