Catégorie : Perl

Marche à suivre pour se connecter à une base MySQL, y effectuer une requête de type SELECT et récupérer le(s) résultat(s).

use DBI();

$database="nom_base";
$hostname="hostname";
$login = "login";
$mdp = "password";
$dsn = "DBI:mysql:database=$database;host=$hostname";
$dbh = DBI->connect($dsn, $login, $mdp) or die "Echec connexion";

$requete = "REQUETE SQL";

$sth = $dbh->prepare($requete);
$sth->execute();

while(my @row = $sth->fetchrow_array)
{
		$var1=$row['0'];
		$var2=$row['1'];
}

$sth -> finish;
$dbh -> disconnect;

Voici les commandes pour envoyer un mail en PERL

use MIME::Lite;
$email = new MIME::Lite
		 	From =>'Jean-Bob@em-corporation.fr',
		 	To =>'Billy@yahoo.co.uk',
			 Cc =>'',
			 Bcc =>'',
			 Subject =>'Salut' ,
		 	Type =>'TEXT',
		 	Data =>"Salut Billy,\n\nEs-tu disponible ce soir pour aller boire un verre ?\n\nCordialement,\n--\nJean-Bob" ;
			$email -> send();

Selon la configuration du serveur il est possible qu’il faille rajouter l’adresse du serveur SMTP à utiliser pour envoyer le mail

$email -> send('smtp', '@IP');