Deutsch   English   Français   Italiano  
<uo4fk4$li$1@rasp.pasdenom.info>

View for Bookmarking (what is this?)
Look up another Usenet article

Path: ...!weretis.net!feeder8.news.weretis.net!pasdenom.info!.POSTED.2a01:e0a:11b:e3f0:80d5:2e6:7a16:e42c!not-for-mail
From: Gosseyn <alan@gosseyn.net>
Newsgroups: fr.comp.lang.perl
Subject: Re: array of array
Date: Tue, 16 Jan 2024 00:37:40 +0100
Organization: Gosseyn.net
Message-ID: <uo4fk4$li$1@rasp.pasdenom.info>
References: <65a56892$0$3013$426a74cc@news.free.fr>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Date: Mon, 15 Jan 2024 23:37:40 -0000 (UTC)
Injection-Info: rasp.pasdenom.info; posting-account="alan@usenet"; posting-host="2a01:e0a:11b:e3f0:80d5:2e6:7a16:e42c";
	logging-data="690"; mail-complaints-to="abuse@pasdenom.info"
User-Agent: Betterbird (macOS)
Cancel-Lock: sha1:BV9Se7T9c8XRbYkw/g4j11ATkmk= sha256:zeXnMrC2CHuEhOmf9LHvPI8hbvwLZxScifP1qc2o6QA=
	sha1:F8Ncb2d3pJsJHKAKIyaGoFnzdzM= sha256:Kz+aUJWrRWsmXF9ALiD5MN2TS8MtDGMLpxAcX3PjvuA=
Content-Language: fr, en-US
In-Reply-To: <65a56892$0$3013$426a74cc@news.free.fr>
Bytes: 2274
Lines: 43

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