FAQs 11) How do I insert data into a mysql database using perlyou   -

1) create a $dbh object when connecting to the database and then use:

$dbh->do('INSERT INTO tbl_name (col1,col2) VALUES(15,col1*2)');

 FAQs 122) Do you have a sample perl script for linking to Mysql -

2) #!/usr/bin/perl -Tw

use strict;
$| = 1;

use CGI::Carp "fatalsToBrowser";
use CGI ":all";
use DBI;

my $serverName = "localhost";
my $serverPort = "3306";
my $serverUser = "*******";
my $serverPass = "********";
my $serverDb = "*********";
my $serverTabl = "*********";

sub insert_entry {
my ($dbh, $success, $name, $age, $email, $website, $comments,$time);

$dbh = DBI->connect("DBI:mysql:database=$server Db;host=$serverName;port=$serverPort",$serverUser,$serverPass);
$name = param("name");
$age = param("age");
$email = param("email");
$website = param("website");
$comments = param("comments");
$time = time;
$success = $dbh->do("INSERT INTO
$serverTabl(name,age,email,website,comments,time)
VALUES(?,?,?,?,?,?)", undef, $name, $age, $email, $website, $comments, $time);
$dbh->disconnect;
if($success != 1) {
return "Sorry, the database was unable to add your entry.
Please try again later.";
} else {
return;
}
}