inserer des "array" en colonne dans un fichier texte

Bonjour a tous !
Voila mon soucis. Je dispose de trois array, appelee @X_array, @Y_array et @Z_Array. les trois array sont des colonnes de coordonnes. Par exemple, @X_array ressemble a ca:

0.000254
0.33698
0.145

mon @Y_array est:

0.000
0.123
0.741

mon Z_array est:

8.88
9.99
4.44

Les trois array ont le meme nombres de valeurs, avoisinant les 5000 (je n'ai mis qu'un extrait ici).
je souhaiterais imprimer ces trois arrays dans un fichier .txt en colonne: mon fichier text ressemblerais a ca
"
coordinate : origin x=0.000254 y=0.000 z=8.88
coordinate : origin x=0.33698 y=0.123 z=9.99
coordinate : origin x=0.145 y=0.741 z=4.44
"

je pense que je peux me debrouiller a ajouter les string coordinate : origin x= ainsi que y= et z=
Mais je ne sais pas comment imprimier dans mon texte les array de maniere a ce que la premiere valeur de @X_array soit a cote de la premiere valeur de @Y_array et de @Z_array

Voila ce que j'ai essaye de faire:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

open (TEMPLATE, "<", "Compact_explicit.inp") or warn 'scale input not found'; #open a template file, where I need to copy the coordinates open (INPUT, ">", "Compact_explicit_final.inp"); # open a new file in which I'll copy the template plus the coordinate @INP = <TEMPLATE>; #put the template file in an array for my $line(@INP){ #read the template line one by one print INPUT $line; #print the template lines into my input if ($line =~ /flag/) { #if the word flag shows up, I would like to copy my coordinates for ($i=1;$i <10; $i++){ print INPUT "coordinate : origin x=@X_array[$i] @Y_array[$i]"; } }

---

Cela retourne une erreur
Pouvez vous m'aider s'il vous plait?

Merci beaucoup !

Bonjour,

une solution simple pour dépanner en attendant une réponse plus propre.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

use strict; use warnings; use feature 'say';   my @x = qw(0.000254 0.33698 0.145);   my @y = qw(0.000 0.123 0.741);   my @z = qw(8.88 9.99 4.44);   my $incrementation = 0;   for (@x) { say "X = $_ Y = $y[$incrementation] Z = $z[$incrementation]"; $incrementation ++; }

---

Résultat:
X = 0.000254 Y = 0.000 Z = 8.88
X = 0.33698 Y = 0.123 Z = 9.99
X = 0.145 Y = 0.741 Z = 4.44

Le code que tu présentes ne ressemble pas trop à la description que tu donnes. Du coup, ce n'est pas très clair.

Questions: es-tu sûr que tes trois tableaux auront toujours le même nombre d'éléments? Tu as en entrée trois tableaux, ou deux tableaux et un fichier?

Selon tes réponses, je reviendrai proposer une solution, mais, pour l'instant, il y a au moins cette erreur dans ton code:

Code:

---

1 2	print INPUT "coordinate : origin x=@X_array[$i] @Y_array[$i]";

---

Il faudrait changer les @ en $, donc ceci:

Code:

---

1 2	print INPUT "coordinate : origin x=$X_array[$i] $Y_array[$i]";

---

En outre, il faudrait sans doute ajouter une fin de ligne. Appeler INPUT un filehandle de sortie n'est vraiment pas d'une grande clarté.

Bonsoir caramon _majere,

Citation:

---

Envoyé par caramon _majere

Bonjour,

une solution simple pour dépanner en attendant une réponse plus propre.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

use strict; use warnings; use feature 'say';   my @x = qw(0.000254 0.33698 0.145);   my @y = qw(0.000 0.123 0.741);   my @z = qw(8.88 9.99 4.44);   my $incrementation = 0;   for (@x) { say "X = $_ Y = $y[$incrementation] Z = $z[$incrementation]"; $incrementation ++; }

---

---

Ça marche et c'est propre, pas de problème, mais ce serait un peu plus "perlien" d'itérer sur un intervalle entre 0 et le dernier indice du tableau et d'écrire quelque chose du genre:

Code:

---

1 2 3 4 5 6 7 8 9 10

# use ...   my @x = qw(0.000254 0.33698 0.145); my @y = qw(0.000 0.123 0.741); my @z = qw(8.88 9.99 4.44);   for my $i (0 .. $#x) { say "X = $x[$i] Y = $y[$i] Z = $z[$i]"; }

---

Voila la réponse plus propre :)
C'est plus propre et plus rapide à écrire.

Citation:

---

Envoyé par Lolo78

Bonsoir caramon _majere,



Ça marche et c'est propre, pas de problème, mais ce serait un peu plus "perlien" d'itérer sur un intervalle entre 0 et le dernier indice du tableau et d'écrire quelque chose du genre:

Code:

---

1 2 3 4 5 6 7 8 9 10

# use ...   my @x = qw(0.000254 0.33698 0.145); my @y = qw(0.000 0.123 0.741); my @z = qw(8.88 9.99 4.44);   for my $i (0 .. $#x) { say "X = $x[$i] Y = $y[$i] Z = $z[$i]"; }

---

---