Discussion :

[unameno]

Bonjour,
voila mon probleme je voudrais récupérer les colonnes entre le select et le from d'une requete sql de type :

Code :

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

1
2
3
4
5
6
REPLACE VIEW nomvue AS
     SELECT col1, col2,
     	col3 
     FROM ma table
     where col1>1
    ;

Je ne sais pas comment regler ce probleme et je pense a deux pistes :
- regarder ligne par ligne faire un split pour avoir tous les mots et enregistrer les mots jusqu'a avoir le second ce qui me parait lourd
- voir le texte dans son ensemble et par une expression regulière bien sentie récupérer directement la chaine voulue, mais je n'arrive pas a trouver comment le réaliser!

si vous avez des conseils ou d'autres propositions pour résoudre ce problème je suis tout ouïe!
merci !

[Jasmine80]

Code :

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

1
2
3
4
5
6
7
my $InFile = "P:/Perl/scripts/Files/test.txt";
open (INFILE,"$InFile") or die "Can't open file\n";
my @fich = <INFILE>;
map {chomp($_)} @fich;
my $Fich = join (" ", @fich);
my ($colonnes) = ($Fich =~ /SELECT(.*)FROM/);
print $colonnes;

Jasmine,

[unameno]

ca marche nickel!
merci jasmine t'es géniiiale

je ne connaissait pas du tout le map pour faire le chomp sur le fichier.
merci beaucoup donc

[unameno]

je tiens a rectifier ca ne marche pas tout a fait,

dans le cas ou la requete contient un autre from (par exeemple si on travaille sur une union ou le cas d'une sous-requete) elle prend entre le premier select et le dernier from, or j'aimerais avec le premier from.

je suppose qu'il faut regarder dans l'expression régulière pour ca, je vaiss essayer de creuser dans ce sens.

ps : merci beaucoup beaucoup quand meme jasmine

[Schmorgluck]

C'est parce que les quantificateurs classiques sont avides, et donc reconnaissent autant de texte que possible avant de passer la main. Du coup, s'il y a plusieurs occurrences de "FROM", elles seront toutes reconnues par .*, sauf la dernière que .* devra restituer pour que la reconnaissance marche.
Il suffit donc de remplacer le quantificateur * par son équivalent paresseux, *?. Ce qui nous donne :

Code :

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

/SELECT(.*?)FROM/

Les quantificateurs paresseux (??,*?,+? et {a,b}?) ne reconnaissent du texte que si c'est indispensable, et donc la reconnaissance n'ira que jusque au premier FROM rencontré.

Soit dit en passant, le SQL n'étant pas sensible à la casse en ce qui concerne ses commandes, peut-être serait-il avisé d'ajouter le modificateur i à la regex. De plus, surtout dans ce cas, pour éviter une erreur dans le cas où une table s'appelle "fromage" ou un truc du style, des ancres de limites de mots pourraient être utiles. Donc la regex pourrait ressembler à ceci :

Code :

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

/SELECT(.*?)\bFROM\b/i

[Jedai]

Code :

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

1
2
3
4
5
my $InFile = "P:/Perl/scripts/Files/test.txt";
open (INFILE,"$InFile") or die "Can't open file\n";
my @fich = <INFILE>;
map {chomp($_)} @fich;
my $Fich = join (" ", @fich);

Comme je le répète souvent, cette méthode n'est pas efficace : vous commencez par découper le fichier en le lisant ligne par ligne, puis vous oubliez toute cette information en mettant un join.

Il est préférable de lire directement le fichier entier :

Code :

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

1
2
3
4
5
6
7
8
9
my $filename = 'P:/Perl/scripts/Files/test.txt';
my $content = do { 
  local $/;
  open my($file), '<', $filename or die "Can't open $filename : $!\n";
  <$file>
};
my @select_columns = ($content =~  m/select (.+?) \b from \b /xgi);
# éventuellement supprimer les retours chariots :
map { tr/\n/ / } @select_columns;

--
Jedaï

[unameno]

merci beaucoup a tous,

j'aimerais quelques explications supplémentaires sur l'expression régulière notemment sur le "/xgi" ou la doc perl et google n'arrivent pas a m'aider.

De plus, le \b ne risque-t-il pas de me couper les nom de colonnes contenant un "_" ?

merci pour tout le temps que vous m'accordez

[Jedai]

j'aimerais quelques explications supplémentaires sur l'expression régulière notemment sur le "/xgi" ou la doc perl et google n'arrivent pas a m'aider.

La doc Perl est très complète, presque trop parfois. Tu peux trouver toutes tes réponses dans perlre ou perlop. Pour faire court : avec /x, les espaces dans la regexp ne sont plus pris en compte, il faut écrire \s explicitement pour matcher un espace (plus exactement, un whitespace, une tabulation ou un passage à la ligne (\r ou \n)), ça permet d'espacer sa regexp pour la rendre plus lisible.
avec /g on reconnait toutes les occurences d'une regexp, pas seulement la première, et en contexte de liste, comme ici, on renvoie la liste des captures.
/i rend la regexp insensible à la casse.

De plus, le \b ne risque-t-il pas de me couper les nom de colonnes contenant un "_" ?

Non, "_" est considéré comme un caractère de mot (reconnu par \w), donc "from_" n'est pas reconnu pas "from\b".

--
Jedaï

[unameno]

merci beaucoup Jedai !
merci beaucoup a tous !