Re: array of array

Le 15/01/2024 à 18:17, kurtz le pirate a écrit :

Je ne sais pas s'il y a du monde qui vient encore ici, mais je tente ma
chance ;

Gagné. C'est probablement pas moi le meilleur, mais bon...

Donc :
J'ai des données de ce genre :
f 198/216 199/218 2/3 1/1
 Le but est de découper chaque couple a/b dans un tableau '@faces'
Le fichier a 'x' lignes comme ça.

Je suis reparti de ta problématique de départ et j'ai fait un truc plus simple, considérant que c'était toujours des couples x/y sur chaque ligne (à part le "f" de début de ligne).
my $i = 0; # à initialiser une seule fois en dehors de la boucle de traitement des données lues du fichier.
$ligne = "f 198/216 199/218 2/3 1/1"; # pour l'exemple, mais tu remplaces par $_ pour lire les lignes de ton fichier de données.
@line = split (' ', $ligne);
shift(@line);
foreach my $value (@line)
{
@couple = split /\//, $value;
$faces[$i][0] = $couple[0];
$faces[$i++][1] = $couple[1];
}
for my $i ( 0 .. $#faces ) {
  for my $j ( 0 .. $#{$faces[$i]} ) {
   print "faces[$i,$j] = $faces[$i][$j]\n";
   }
  }
++
--
Alan JOBERT - alan@gosseyn.net
www.gosseyn.net