perl : script MAJ BDD

Voici, un petit script qui met à jour un champ en BDD


#!/usr/local/bin/perl -w

use strict;
use diagnostics;

use DBI;
use Date::Manip;

# Parametres de connexion a la base de donnees
my $usermysql = $ENV{ MYSQL_USR};
my $passmysql = $ENV{ MYSQL_MDP};
my $mysqlBase = $ENV{ MYSQL_BASE};
my $mysqlServer = $ENV{ MYSQL_SRV};
my $portmysql = $ENV{ MYSQL_PORT};
my $projet = $ENV{ PROJET};

print "login=[$usermysql] et password=[$passmysql]";
# Ouverture de la connexion BDD
my $mysqlCnx = "DBI:mysql:database=".$mysqlBase.";host=".$mysqlServer.";port=$portmysql";
my $mysqlDbFctl = DBI->connect($mysqlCnx, $usermysql, $passmysql) || die("Pas de connexion a la base!");

# Requete SQL
my $updateQuery = "UPDATE WebServiceAccess SET authenticationKey = '12345678906'";

# Lancement de la requete d'update
my $updateStatement = $mysqlDbFctl->prepare($updateQuery);
$updateStatement->execute() || print "Can't execute statement: $DBI::errstr";
$updateStatement->finish();

# Lancement de select
my $selectQuery = "SELECT userId,authenticationKey FROM WebServiceAccess";
my $selectStatement = $mysqlDbFctl->prepare($selectStatement);
$selectStatement->execute() || print "Can't execute statement: $DBI::errstr";
$selectStatement->finish();

my @resultat;
while ((@resultat) = $selectStatement->fetchrow_array) {
print $resultat[0]."==>".$resultat[1]."\n";
}

$mysqlDbFctl->disconnect() || die ("erreur lors de la deconnexion a la BDD");