PERL Tuto Linuxtricks.fr

#! /usr/bin/perl

use strict;
use warnings;
use utf8;

use DBI;
use DBD::mysql;
use Try::Tiny;

my $db='perl';
my $dbhost='localhost';
my $dbport='3306';
my $dbuser='perluser';
my $dbpasswd='viveperl';

my $db_handle;
my $sql;
my $statement;
my $result;
my $row;
my $txt;

# On se connecte
$db_handle = DBI->connect("dbi:mysql:database=$db;host=$dbhost:$dbport;user=$dbuser;password=$dbpasswd");

# On passe le jeu de caractères en UTF-8
$statement = $db_handle->prepare("SET NAMES utf8;");
$statement->execute();


# On fait un INSERT
print "On fait un INSERT\n";
$sql = "INSERT INTO messages(txt) VALUES (?);";
$statement = $db_handle->prepare($sql);
$txt = "Bonjour";
$statement->execute($txt);


# On fait un SELECT
print "On fait un SELECT\n";
$sql = "SELECT * FROM messages";
$statement = $db_handle->prepare($sql);
$statement->execute();

while ( $row = $statement->fetchrow_hashref() )
{
    $result = "Le message $row->{id} vaut $row->{txt}";
    print "$result\n";
}

# On fait un UPDATE
print "On fait un UPDATE\n";
$sql = "UPDATE messages SET txt='Salut !' WHERE txt='Bonjour';";
$statement = $db_handle->prepare($sql);
$statement->execute();


# On fait un 2ème SELECT
print "On fait un 2eme SELECT\n";
$sql = "SELECT * FROM messages";
$statement = $db_handle->prepare($sql);
$statement->execute();

while ( $row = $statement->fetchrow_hashref() )
{
    $result = "Le message $row->{id} vaut $row->{txt}";
    print "$result\n";
}

# On fait un DELETE
print "On fait un DELETE de tout ce qui est plus grand que 2 !\n";
$sql = "DELETE FROM messages WHERE id>2;";
$statement = $db_handle->prepare($sql);
$statement->execute();


# On fait un 3ème SELECT
print "On fait un 3eme SELECT\n";
$sql = "SELECT * FROM messages";
$statement = $db_handle->prepare($sql);
$statement->execute();

while ( $row = $statement->fetchrow_hashref() )
{
    $result = "Le message $row->{id} vaut $row->{txt}";
    print "$result\n";
}


$statement->finish;
$db_handle->disconnect();