Aller au menu - Aller au contenu

Icône TP : simulation de la commande "describe table"

Avatar
Par Avatar Ludovic ROLAND (Wapiti89)
Mise à jour : 11/03/2012
Difficulté : Intermédiaire Intermédiaire Creative Commons BY-NC-ND
515 visites depuis 7 jours, dont 16 sur ce chapitre classé 220/786
Je vous propose d'ores et déjà un petit exercice qui va nous permettre de réviser les notions vues au cours des chapitres précédents, mais qui va également nous permettre de voir de nouvelles fonctions qui pourront s'avérer utiles dans vos futurs programmes. ;)
Retour en haut
Sommaire du chapitre :
Icône du chapitre
Chapitre précédent Sommaire Chapitre suivant
Retour en haut

L'énoncé

Le but de ce TP est simple : faire un script Perl qui permette de simuler la commande SQL.

Code : SQL
1
DESCRIBE VENTE;


Bien entendu, notre commande sera bien plus simplifiée et se contentera d'afficher :
  • le nom des champs ;
  • le type des champs ;
  • si le champ peut être NULL ou non.


Voici un aperçu de ce que devra faire votre script :

Code : Console
> perl describe_vente.pl
------------------------------------------------
|       Champ      |     Type      |    Null   |
------------------------------------------------
|    numVoiture    |    integer    |    non    |
|    numVendeur    |    integer    |    non    |
|    prixReel      |    decimal    |    non    |
|    dateVente     |    date       |    non    |
------------------------------------------------





Une petite aide


Bien évidemment, vous n'avez pas à l'heure actuelle tous les outils pour pouvoir réaliser ce TP. C'est pourquoi je vais vous décrire quelques fonctions qui vous seront sans aucun doute indispensables pour mener à bien ce petit exercice.




La méthode NAME



Méthode spécifique à MySQL !


Cette méthode retourne une référence vers un tableau de noms de colonnes et s'utilise de la manière suivante :



Code : Perl
1
$prep->{'NAME'};








La méthode TYPE



Méthode spécifique à MySQL !


Cette méthode retourne une référence vers un tableau de types de colonnes. Les valeurs possibles sont :


    

  • 1 si la colonne est de type Char ;
    • 

  • 2 si la colonne est de type Numeric ;
    • 

  • 3 si la colonne est de type Decimal ;
    • 

  • 4 si la colonne est de type Integer ;
    • 

  • 5 si la colonne est de type Smallint ;
    • 

  • 6 si la colonne est de type Float ;
    • 

  • 7 si la colonne est de type Real ;
    • 

  • 8 si la colonne est de type Double ;
    • 

  • 9 si la colonne est de type Date ;
    • 

  • 10 si la colonne est de type Time ;
    • 

  • 11 si la colonne est de type Timestamp ;
    • 

  • 12 si la colonne est de type Varchar ;
    • 

  • -1 si la colonne est de type Longvarchar ;
    • 

  • -2 si la colonne est de type Binary ;
    • 

  • -3 si la colonne est de type Varbinary ;
    • 

  • -4 si la colonne est de type Longvarbinary ;
    • 

  • -5 si la colonne est de type Bigint ;
    • 

  • -6 si la colonne est de type Tinyint ;
    • 

  • -7 si la colonne est de type Bit ;
    • 

  • -8 si la colonne est de type Wchar ;
    • 

  • -9 si la colonne est de type Wvarchar ;
    • 

  • -10 si la colonne est de type Wlongvarchar.
    • 





Elle s'utilise de la manière suivante :



Code : Perl
1
$prep->{'TYPE'};








La méthode NULLABLE


Cette méthode retourne une référence vers un tableau de valeurs qui indiquent si les colonnes peuvent être NULL ou non. Les valeurs possibles sont :


    

  • une chaine vide si la colonne ne peut pas être NULL ;
    • 

  • 1 si la colonne peut être NULL ;
    • 

  • 2 si l'état est inconnu.
    • 





Elle s'utilise de la manière suivante :



Code : Perl
1
$prep->{'NULLABLE'};








Si vous pensez avoir besoin d'une séance de révision quant aux références en Perl, vous pouvez consulter cette annexe.

                

                
Retour en haut

            
                

                    

                        Une solution
                        
                    


                    
Je vous fais part de ma solution. Bien évidemment, il ne s'agit pas de LA solution !



Secret (cliquez pour afficher)
Code : Perl
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
#!/usr/bin/perl

use strict;
use Switch;
use DBI;

#On prépare la connexion
my $base	= 	'Zvoitures';
my $hote	= 	'127.0.0.1';
my $login	=	'root';
my $mdp		=	'';

#On se connecte
my $dbd = DBI->connect("dbi:mysql:dbname=$base;host=$hote;",$login, $mdp)
    or die 'Connexion impossible à la base de données : '.DBI::errstr;

#On prépare la requête et on l'exécute
my $requete = 'SELECT * FROM VENTE';

my $prep = $dbd->prepare($requete)
    or die 'Impossible de préparer la requête : '.$dbd->errstr;

$prep->execute
    or die 'Impossible d\'exécuter la requête : '.$prep->errstr;

#On récupère les noms des colonnes
my $name = $prep->{'NAME'};

#On récupère les types des colonnes
my $type = $prep->{'TYPE'};

#On regarde si c'est null ou pas
my $null = $prep->{'NULLABLE'};

#On initialise le compteur
my $i = 0;

#On affiche l'en-tête du tableau
print "-----------------------------------------------------------------\n";
print "|\tChamp\t\t|\tType\t\t|\tNull\t|\n";
print "-----------------------------------------------------------------\n";

foreach my $elt (@$name) {
    #On affiche les noms
    print "|\t" . $$name[$i] . "\t|\t";

    #OU
    #print "|\t" . $elt . "\t|\t";

    #On affiche les types
    switch ($$type[$i]) {
        case 1	 { print 'char' }
	case 2	 { print 'numeric' }
	case 3	 { print 'decimal' }
	case 4	 { print 'integer' }
	case 5	 { print 'smallint' }
	#...
	case -10 { print 'Wlongvarchar' } 
    }
	
    print "\t\t|\t";

    #On affiche si c'est NULL ou pas
    if($$null[$i] == 1) {
        print 'oui';
    }
    else {
        print 'non';
    }

    print "\t|\n";
    $i++;
}

#Fin de tableau
print "-----------------------------------------------------------------\n";

#On libère la mémoire et on se déconnecte
$prep->finish;
$dbd->disconnect;







Si vous avez des problèmes, des doutes ou des questions, je vous encourage fortement à les poser sur le forum de ce site !

                

                
Retour en haut

            
                

                    

                        Quelques améliorations possibles
                        
                    


                    
Pour améliorer ce petit programme, vous pouvez par exemple :


    

  • faire passer la table à décrire en paramètre du script ;
    • 

  • l'enrichir avec plus de détails, il existe de nombreuses autres fonctions que vous trouverez par exemple ici.
    • 




Certaines de ces fonctions sont complètement obsolètes et ne vous donneront rien d'exploitable !

                

                
Retour en haut

            


La pause est finie, il est temps de reprendre le cours normal du tuto !  ^^



    

        
            
            
        
    


    

        
            

                

                    
                    
                    
                

            

        
            Chapitre précédent
        
            Sommaire
        
            Chapitre suivant
        
    







    
Retour en haut



    
Partager

    


    


    

    
Retour en haut

    
        
Il n'y a pas encore de commentaire pour ce tuto.