Votre question

Perl tableau

Tags :
  • Next
  • Programmation
Dernière réponse : dans Programmation
23 Juillet 2008 15:40:52

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.

Autres pages sur : perl tableau

25 Juillet 2008 11:40:14

au lieu de les traiter ligne par ligne, commence par en former qu'une chaine:
  1. # @t: le tableau de ligne
  2. # @car: la suite de caractère
  3. my @car=split ('', join ('', @t));
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS