[PERL] boucle tableau
Résolu
wafa_o
Messages postés
109
Date d'inscription
Statut
Membre
Dernière intervention
-
wafa_o Messages postés 109 Date d'inscription Statut Membre Dernière intervention -
wafa_o Messages postés 109 Date d'inscription Statut Membre Dernière intervention -
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\n" ;
$IdxCaractereDeLaLigne = ++$IdxCaractereDeLaLigne;
if ($tableauCaractere[$IdxCaractereDeLaLigne] =~ /'[a-zA-Z0-9]+'/) {
print "on a trouvé a\n" ;
}
else { print "il faut regarder la ligne suivante\n";
next;
}
}
if ($tableauCaractere[$IdxCaractereDeLaLigne] =~ /'[a-zA-Z0-9]+'/) {
print "on a trouve a dans la ligne suivante\n" ;
}
else {
print "ERREURRR! le m n'est pas suivi par a \n";
}
}
}
Merci d'avance.
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\n" ;
$IdxCaractereDeLaLigne = ++$IdxCaractereDeLaLigne;
if ($tableauCaractere[$IdxCaractereDeLaLigne] =~ /'[a-zA-Z0-9]+'/) {
print "on a trouvé a\n" ;
}
else { print "il faut regarder la ligne suivante\n";
next;
}
}
if ($tableauCaractere[$IdxCaractereDeLaLigne] =~ /'[a-zA-Z0-9]+'/) {
print "on a trouve a dans la ligne suivante\n" ;
}
else {
print "ERREURRR! le m n'est pas suivi par a \n";
}
}
}
Merci d'avance.
A voir également:
- [PERL] boucle tableau
- Tableau word - Guide
- Tableau ascii - Guide
- Trier un tableau excel - Guide
- Tableau croisé dynamique - Guide
- Imprimer tableau excel sur une page - Guide
17 réponses
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 ;-)
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 ;-)
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 ?
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 ?
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)
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)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Salut,
voici un exemple
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' } );
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_]+
\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_]+
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.
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.
Salut,
quand tu écris
quelque soit les conditions tous les éléments des tableaus sont parcourus de la façon suivante
Je vais regarder ce soir
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
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 ;-)
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 ;-)
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\n";
}
}
}
$_++;
}
**** 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
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\n";
}
}
}
$_++;
}
**** 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
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'
]
}
);
Par exemple:
my %toto => (
'AAAAAA' =>{
'uuu' => [ 'toto','tata', 'mouloud' ] }
'BBBBB' =>{
'SSS' => [
't',
'ta',
'mod'
]
}
);
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
comme ça ça sera plus facile de traiter
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
