[PERL] boucle tableau Résolu/Fermé

Question

Bonjour,

Je suis débutante en perl et je rencontre beaucoup de difficultés. Je souhaite creer un parcours de graphe en perl. J'ai un fichier de config. Je place chaque ligne du fichier dans un tableau t1. Puis je place chaque caractère de chaque ligne dans un tableau t2. Si je trouve le caractère "m", le caractère suivant doit etre "a".
Le problème c'est lorsque "m" est à la ligne 1 et le "a" à la ligne 2. Je ne sais pas comment ecrire : si "m" est le dernier caractère de la ligne je regarde le premier caractère de la ligne suivante.

Voilà mon code 
for ( 0 .. $#t1) {									$i = $_ ;
	my @t2 = split (// , $t1[$i]) ; 	
	
	for ( 0 .. $#t2 ) {	
	     $j=$_					        
                     if ($t2[$j] =~ /m/) {
		print "on a trouvé m; on cherche a
" ;		
		$IdxCaractereDeLaLigne = ++$IdxCaractereDeLaLigne;
		if ($tableauCaractere[$IdxCaractereDeLaLigne] =~ /'[a-zA-Z0-9]+'/) {
			print "on a trouvé a
" ;
		}
	       else { print "il faut regarder la ligne suivante
"; 
                                next;
                       }
	       }	
		
	       if ($tableauCaractere[$IdxCaractereDeLaLigne] =~ /'[a-zA-Z0-9]+'/) {
			print "on a trouve a dans la ligne suivante
" ;
		}
		else { 
			print "ERREURRR! le m n'est pas suivi par a 
";
		}
	}
}	




Merci d'avance.

lami20j · Answer

Salut,

Je ne sais pas comment ecrire : si "m" est le dernier caractère de la ligne je regarde le premier caractère de la ligne suivante. 

je ne pense pas que le problème est bien posé.

en fait, tu n'as plus des lignes mais des éléments des 2 tableux
donc la question sera quand le dernier caractère de la chaîne qui se trouve à l'index I est m alors je pense à l'élément suivant du tableau celui qui se trouve à I+1 et je vérifie que la 1ère lettre de la chaîne est a

a vrai dire je ne comprends pas ce que tu veux

si tu nous donneras ton fichier de config (donc ce que tu as en Entrée) et tu nous donneras un exemple de ce que tu veux obtenir en Sortie, peut être qu'on trouveras ensemble une solution ;-)

wafa_o · Answer

Salut lami20j,

Il est possible que j'ai mal expliqué ce que je souhaitais. Je suis débutante. 
Pour répondre à ta question le fichier en entré est de la forme :

my %toto => ( 'AAAAAA' =>{ 'uuu' => [ 'toto','tata', 'mouloud' ] } ); 

Le but est de vérifier la syntaxe. Après { je dois trouver '.
Après my%[a-z]+ on doit trouver =>
Après ' je peux trouver , ou ] etc.

Est ce que tu comprends mieux l'exercice ?

lami20j · Answer

Salut,

en bref tu veux faire quelque chose pour analyser si la syntaxe est correcte si j'ai bien compris.
je pense qu'une solution avec les regex peut être faisable 
je vais voir ça ce soir ;-) (je suis au boulot et je n'ai pas le temps)

wafa_o · Answer

Oui c'est bien celà. 
En ce moment je tente avec les hashs. 

Merci lami20j. Bonne après midi.

lami20j · Answer

Salut,

voici un exemple#!/usr/bin/perl
use strict; use warnings;

while(<DATA>){
        print "$. ok\n" if /{\s*'\w+'\s*=\>\s*\[\s*('\w+',)*\s*'\w+'\s*]\s*}/;
}
__END__
my %toto => ( 'AAAAAA' =>{ 'uuu' => [ 'toto','tata', 'mouloud' ] } );
my %toto => ( 'AAAAAA' =>{ uuu' => [ 'toto','tata', 'mouloud' ] } );
my %toto => ( 'AAAAAA' =>{ 'uuu' => [ 'toto','tata', 'mouloud' ] } );
my %toto => ( 'AAAAAA' =>{ 'uuu' => [ 'toto','tata', 'mouloud'  } );

wafa_o · Answer

Salut, 

A quoi correspondent les w+ ?

lami20j · Answer

Salut,

\w répresent un caractère mot qui peut être a à z ou A à Z ou 0 à 9 ou _ (underscore)

+ c'est un quantificateur qui permet de reconnaître un caractère minimum et maximum combien la mémoire permet ;-)

en fait \w+ correspond à la clase de caratères [a-zA-Z0-9_]+
donc où t'écrit \w+ tu peux écrire [a-zA-Z0-9_]+

wafa_o · Answer

Merci.

wafa_o · Answer

Bonjour, 

Je reviens à mon problème de départ :
si "m" est le dernier caractère de la ligne je regarde le premier caractère de la ligne suivante. 

Comme l'a bien compris lami20j, j'ai des éléments de 2 tableaux.
" la question sera quand le dernier caractère de la chaîne qui se trouve à l'index I est m alors je pense à l'élément suivant du tableau celui qui se trouve à I+1 et je vérifie que la 1ère lettre de la chaîne est a".

Quelqu'un a une idée ?
Merci d'avance.

lami20j · Answer

Salut,

quand tu écris
for ( 0 .. $#t1) { $i = $_ ; my @t2 = split (// , $t1[$i]) ; 

for ( 0 .. $#t2 ) { 
quelque soit les conditions tous les éléments des tableaus sont parcourus de la façon suivante

Pour chaque élément de @t1

   Traite les éléments de @t2Je pense qu'il faut faire autrement ;-)

Je vais regarder ce soir

wafa_o · Answer

merci lami20j. 

Mais est ce que tu comprends bien ce que je souhaite faire ?

lami20j · Answer

Re,

si j'ai bien compris tu souhaites vérifier la syntaxe
toutefois ta demande se référe à une seule ligne

y a-t-il plusieurs lignes?!
peut être que la connaissance de ton fichier de traitement sera utile
si tu as des précisions à faire, alors c'est le moment ;-)

wafa_o · Answer

le fichier comporte plusieurs lignes.
Comme je te l'avais dit, il est de la forme :
my %toto => ( 'AAAAAA' =>{ 'uuu' => [ 'toto','tata', 'mouloud' ] } );

mais il peut s'ecrire 
my %toto => (
     'AAAAAA' =>{   
                     'uuu' => [ 'toto','tata', 'mouloud' ] } );

ou 


my %toto => (
     'AAAAAA' =>{   
                     'uuu' => [ 
                                 'toto',
                                 'tata', 'mouloud' ] } 
                  );

ou
m
y %toto => (
     'AAAAAA' =>{   
                     'uuu' => [ 
                                 'toto',
                                 'tata', 'mouloud' ] } 
                  );


etc... 

Pour celà, j'ai donc placé chaque ligne de mon fichier dans un tableau @tabL, puis chaque caractère de chaque ligne de un tableau @tabC. J'enleve tous les espaces, retours chariot, tabulation...

Puis j'essai de faire le traitement. 

while ($_ <= $#tabC) {
         if ( $tabC[$_] =~ /m/ ) {
LE PROBLEME SE SITUE ICI ***
                   if ($tabC[++$_] =~ /y/) {
                            if ($tabC[++$_] =~ /%/) {
                                  print "OK
";
                            }
                   }
           }
           $_++;
}


**** LE PROBLEME SE SITUE ICI : Je m'explique à nouveau. si le y est à la ligne suivante, la boucle sera terminée. 
je voudrais rajouter une condition à savoir, si le caractère m est le dernier caractère de la ligne, il faut passer au premier caractère de la ligne suivante. 

En espèrant avoir été assez claire, je te souhaite une bonne après midi

wafa_o · Answer

Autre précision, il y a plusieurs lignes du type que je t'ai donné.
Par exemple:

my %toto => ( 
                 'AAAAAA' =>{ 
                              'uuu' => [ 'toto','tata', 'mouloud' ] } 



              'BBBBB' =>{ 
                              'SSS' =>   [
                                           't',
                                            'ta',
                                             'mod' 
                                               ]
         } 

);

lami20j · Answer

Re,

en ce cas, je me pose une question bête ;-)

il ne sera mieux d'arranger un peu ton fichier avant de le traiter?!


par exemple transformer tout dans de lignes de genre

my %toto => ( 'AAAAAA' =>{ 'uuu' => [ 'toto','tata', 'mouloud' ] }, 'BBBBB' =>{ 'SSS' => [ 't', 'ta', 'mod' ] } );

comme ça ça sera plus facile de traiter

wafa_o · Answer

ah, tu viens de me donner une idée. Je vais créer un fichier temp. Je te tiens au courant.

wafa_o · Answer

Merci lami20j. J'ai la réponse à mon problème en une seule ligne.

Je souhaitais te poser une question, tu travailles dans quel domaine? l'informatique je suppose non?

[PERL] boucle tableau

17 réponses

Discussions similaires