Discussion :

[j6m]

Bonjour, je cherche à récupérer les noms des tables utilisées dans des requêtes SQL.
J'ai commencé à tester la faisabilité en prenant un fichier dans lequel je cherche "INTO".

J'ai deux problèmes :
- d'abord mon code ne trouve pas cette chaîne de caractères alors qu'elle y est bien.
- ensuite (et je me dis qu'il y a peut-être un lien entre les deux), quand j'écris toutes les lignes de mon fichier sql dans un autre fichier, j'ai l'impression que "Perl a rajouté" un espace entre chaque lettre. Du coup s'il fait ça AVANT d'évaluer l'expr. régulière, il semble logique qu'il ne trouve pas ce que je lui demande. Mais en lui passant "I N T O" il ne trouve rien non plus...
ci-dessous le code

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
28
29
#!/usr/bin/perl -w
# nx.pl
use warnings;
use strict;
 
 
open FILE, "Traceur.sql"  or die $!;
open OUT, ">liste.lst" or die;
my $lineno = 1;
my @lignes = <FILE>;
my $lignes;
$lignes = @lignes;
my $motif = "INTO";
 
while ($lineno < $lignes) 
  {
 
    print OUT  "$lignes[$lineno]";
    print "$lineno \n";
    if( $lignes[$lineno] =~ /"INTO"/g ) 
    {  print "$lignes[$lineno]\n";
        print "$lineno\n";
    }  
 
else {print "non \n";}  
$lineno++; 
  }
 
print "fini \n";

et ci-après ce qu'il y a dans mon fichier :

/ * P o u r Ú v i t e r l e s p r o b l Þ m e s Ú v e n t u e l s d
e p e r t e d e d o n n Ú e s , p a s s e z a t t e n t i v e m e n t
c e s c r i p t e n r e v u e a v a n t d e l ' e x Ú c u t e r
e n d e h o r s d u c o n t e x t e d u C o n c e p t e u r d e b
a s e s d e d o n n Ú e s . * /

alors que dans mon fichier SQL de départ le formatage est correct :

/* Pour éviter les problèmes éventuels de perte de données, passez attentivement
ce script en revue avant de l'exécuter en dehors du contexte du Concepteur de b
ases de données.*/

Je ne pense pas que mes ennuis soient dus à l'Unicode et je suis coincé là-dessus depuis ce matin

Quelqu'un a t-il déjà rencontré ce problème?

PS je suis sous Windows, je lance mon script perl depuis l'invite de commandes MS-DOS.

Merci d'avance.

[djibril]

Code :

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

if( $lignes[$lineno] =~ /"INTO"/g )

Je doute qu'une regex s'écrive ainsi avec des doubles quottes avant et après un INTO .
Tu devrais nous montrer le contenu de ton fichier SQL, ne serais que 3, 4 lignes.

[j6m]

INTO est le mot que je cherche dans le fichier. J'ai essayé aussi sans les doubles quotes et c pareil.

Pour le contenu du fichier SQL, c'est ce que j'ai mis :
/* Pour éviter les problèmes éventuels de perte de données, passez attentivement
ce script en revue avant de l'exécuter en dehors du contexte du Concepteur de b
ases de données.*/

il y a aussi la ligne suivante :
EXEC('INSERT INTO Tmp_Traceur (Id_traitement, Nom_traitement, date_
traitement, résultat)
donc il y a bien le mot INTO.

Merci en tout cas pour la réponse.
PS j'ai enlevé les quotes

[Philou67430]

Remarque générale sur ton script :
- quand tu souhaites boucler sur les éléments d'un tableau, inutile de gérer un indice allant de 0 jusqu'à la taille du tableau moins un, une simple boucle foreach est suffisante :

Code :

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

1
2
3
foreach my $ligne (@lignes) {
  ...
}

- concernant le drôle de reformatage du fichier, je pense qu'en même que ça vient d'un problème d'encodage, mais je suis pas super expert dans ce domaine

[j6m]

Encore une fois je débute et même si elle n'est pas élégante ma boucle fait ce que je veux qu'elle fasse. Mais merci pour me permettre de simplifier.
Pour le problème d'encodage que je soupçonne aussi, comment puis-je m'en débarrasser? Je ne dois pas être le seul à lancer des scripts Perl depuis une fenêtre DOS sur un PC sous Zindoz XP ?!

[Philou67430]

Pour t'aider, il faudrait que tu insères ton fichier en lien de sorte qu'on ait exactement le source sql avec son encodage.

[j6m]

ok le voilà. Encore merci.

[Philou67430]

Ton fichier est écrit en "Unicode text, UTF-16, little-endian"...
Ouvre ton fichier avec l'attribut encoding (forme à 3 arguments de open);

Code :

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

open FILE, "<:encoding(UTF16)", "Traceur.sql" or die $!;

[j6m]

merci et bravo, bravo et merci
je cherchais côté UTF-8 et bien sûr ça ne donnait rien. Tu peux nous dire comment tu as fait pour identifier le format? Ça pourrait servir ...

[djibril]

Via un éditeur de texte

[j6m]

j'ai trouvé ça sinon
http://www.developpez.net/forums/d66...fichier-texte/

[Philou67430]

Sur Un*x, en utilisant la commande file.

Code bash :

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

1
2
$ file Traceur.sql
Traceur.sql: Unicode text, UTF-16, little-endian