Discussion :

[tenrod]

Bonjour,
J'ai un gros problème avec une expression régulière dont le postulat de départ semblait plutot simple:
Ce que je veux serait de récupérer toutes les tables dans un select de la forme :
select champs1, champs2 from table1, table2, table3 where conditions

le problème c'est que dans les fichiers que je souhaite parser je me retourve sur une seule ligne avec ceci :
select champs from table ... code ... select champs1, champs2, from table1, table2, table3 where conditions

Si quelqu'un a une idee je suis preneur car la je seche vraiment

Merci d'avance .

[Jasmine80]

J'essaierais quelque chose comme ça:

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
#!usr/bin/perl -w
use strict;
use warnings;
 
 
my $Ligne = "select champs from table where conditions1 ... code ... select champs1, champs2, from table1, table2, table3 where conditions2";
 
my @requetes = split ('select', $Ligne);
foreach my $req (@requetes)
{
        print $req."\n";
 
        if ($req =~ /(.*) from (.*) where (.*)/)
        {
                my $champs = $1;
                my $tables = $2;
                my $conditions = $3;
                print "SELECT $champs FROM $tables WHERE $conditions\n";
 
        }
 
}

Si tu ne veux pas faire requête par requête, tu peux stocker tes variables $champs, $tables et $conditions dans une hash et les utiliser à la sortie de ta boucle.

Jasmine,

[tenrod]

ah pas bête du tout j'avais absolument pas pensé a spliter avec le select !
Je vais tester ça de suite et te dire si ça marche ^^
Merci beaucoup

[tenrod]

ça marche super merci avec les deux ptites modifs spécifiques a mon cas mais le coup de spliter avec les select c'est tout a fait ce qu'il me manquait ^^
Merciiiiiiiiiiiiiiiiiiiiiiiii

[Jasmine80]

Ben oui, parfois il suffit d'une astuce toute simple mais on n'y pense pas ... d'où d'utilité de ce forum où on y réfléchit à plusieurs.


Jasmine,