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