I was just looking for some assistance with a script. I've only just begun scripting with Perl due to my roommate converting me, so please don't flame.
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 $sql = "INSERT INTO test (A,B,C,D) VALUES (?,?,?,?)";
$statement = $connect->prepare($sql);
$statement = execute(4,4,4,4);
print "User $newuser Active\n";
}
Everything works fine, except the table doesn't get created. Therefore the values aren't created.
Again I'm not that experienced so you may need to explain advanced symbols, etc. Any help on why it doesn't work/what to fix is greatly appreciated.