Parser une requête SQL pour MySQL

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 :D

Bonjour,

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

Code:

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" ) ;

en espérant que ca te serve.

Euh 8O Il n'a pas demandé comment executer une requête, mais comment l'analyser, c'est différent !

voila un module qui link directement la librairie de parsing sql de mysql :
http://search.cpan.org/~philips/DBIx-MyParse-0.40/