Parser une requête SQL pour MySQL

**gassla** · 01/08/2006, 10h14

Salut à tous,

Je voudrais vous demander si vous connaissez un outil ou une library si possible en perl qui parse une requête et retourne les noms des tables, des champs ... concernés ?.
Il y en a une ici mais il ne supporte pas très bien les requêtes complexes:
http://search.cpan.org/~jzucker/SQL-Statement-1.15/

Merci pour votre aide

**mego** · 01/08/2006, 15h14

Bonjour,

voila ce que j'utilise:
il te faut la bibliotheque DBI

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
#!C:/Perl/bin/perl
#
	BEGIN { $ENV{DBI_SQL_NANO}=1 } ;
	use DBI ;
 
 
#########################################################################################################################################
#
#	Connexion à la base de donnees SQL
#
#########################################################################################################################################
 
	my $utilisateur		= 'user' ;
	my $motdepasse		= 'mdp' ;
 
	my $database		= 'DBI:mysql:transmanuf:152.13.54.192' ;
	my $db		= DBI->connect($database, $utilisateur, $motdepasse, { PrintError => 0 , AutoCommit => 1 } ) or PbConFTP::pb_con_db( $DBI::errstr ) ;
 
#########################################################################################################################################
#
#	Ici un exemple de requete SQL retournée dans un hash
#	Pour info tu peux aller dans l'aide dispo sous /perl/html (je la trouve bien expliquée)
#
#########################################################################################################################################
 
	my $result_hash		= $db->selectall_hashref( "SELECT * FROM table WHERE Societe='temp' AND Affaire='1234'" , "Affaire" ) ;