regex et print

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:

---

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 :

Citation:

---

/ * 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 :

Citation:

---

/* 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 :calim2:

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.

Code:

---

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.

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

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:

---

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

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 ?!

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.

ok le voilà. Encore merci.

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

Code:

---

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

---

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 ...

:ccool:

Via un éditeur de texte ;)

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

Sur Un*x, en utilisant la commande file.

Code:

---

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

---