#!/usr/bin/perl -w

# la base tuc est ainsi définie :

# create database truc character set = utf8;
# create table truc (mots varchar(20));

use Modern::Perl;
use DBI;
use Term::ReadPassword;

my $mdp=read_password("Mot de passe philippe ? ");

print( "texte : " );
my $t = <STDIN>;
chomp($t);

my $base = "dbi:MariaDB:truc";
my $dbh = DBI->connect( $base, 'philippe', $mdp);
my $ins_truc;
$ins_truc = $dbh->prepare( "insert into truc (mots) values (?)" )
  || die( "Erreur 1 ", $dbh->errstr );
$ins_truc->execute($t);
$ins_truc->finish();

$dbh->disconnect();

exit(0);