Snippet Name: Perl SQL Update Example
Description: Updating a record in a database with perl and the DBU module.
Comment: (none)
Language: PERL
Highlight Mode: PERL
Last Modified: March 05th, 2009
|
#!/usr/bin/perl
# Use the DBI module
USE DBI;
# PERL SQL Update Example
MY $dsn = 'DBI:mysql:dictionary:space.powweb.com';
MY $db_user_name = 'ssadmin';
MY $db_password = 'dictionary';
MY $password = "dictionary";
# Connect to the database
# Note this connection can be used to
# execute more than one statement
# on any number of tables in the database
MY $dbh = DBI->connect($dsn, $db_user_name, $db_password) || DIE "Connect failed: $DBI::errstr\n";
# Create the statement.
$stmt = "UPDATE Player_Stats SET total_games_played = '199' WHERE username LIKE '%joe'";
# Prepare and execute the SQL query
$sth = $dbh->prepare($stmt) || DIE "prepare: $stmt: $DBI::errstr";
# Execute the statement
$sth->execute();
$sth->finish();
$dbh->disconnect();
PRINT "Content-type: text/html\n\n";
PRINT "Done!";
EXIT;
|