Exemple de script Perl

Le script que nous allons étudier permet d'afficher le prénom, suivi du nom des utilisateurs du réseau dépendant du département Marketing. En langage SQL, on l'exprime comme suit :

	select prenom, nom 
	from UTILISATEURS 
	where departement='Marketing'

La base de données pmsql_db se trouve sur la machine casimodo. Le code source du script util.pl est le suivant :

#!/usr/bin/perl

# Importation du module Msql 
use Msql;

# Connexion à la base de donnée
$db_h = Msql->connect("casimodo","pmsql_db");

# Formulation de la requete
$requete_h = $db_h->query("select prenom, nom from \\
          UTILISATEURS where departement='Marketing'");

# Récupération des résultats
while (@resultat = $requete_h->fetchrow) {
  # Affichage du champ1 puis du champ2
  print "$resultat[0] $resultat[1]\n";
}

A l'exécution, on obtient le peu surprenant résultat :