Modifier un format

Bonjour,

J'ai le script suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

close $f;   #open my $fichier, '>>', "/home/gcadars/matrice/matrice2/gcont_2301.dist";   # mes 3 varables my ( @x, @y, @z );   # parsing foreach my $i ( @data ) { # echap les ligne qui commance par un chiffre next unless ( $i =~ /^[^0-9]/ );   chomp( $i );   # decoupage de la ligne my @t = split / /, $i;   # ajoute au bon tableau push @x, shift @t; push @z, \@t; }   # copie x -> y @y = @x;   # affichage des données print '@x = ', join ' ', @x, "\n"; print '@y = ', join ' ', @x, "\n"; foreach my $i (0..5) { print '@z['.$i.'] = ', join ' ' , @{$z[$i]}, "\n"; }

---

qui travaille avec ce fichier :

5
ecj 0.0 3.598 3.275 3.675 3.585
ebw 3.598 0.0 3.201 3.618 3.497
ecok 3.275 3.201 0.0 3.232 3.157
eco 3.675 3.618 3.232 0.0 3.535
ecd 3.585 3.497 3.157 3.535 0.0


Et qui me printe ceci :

@x = ecj ebw ecok eco ecd
@y = ecj ebw ecok eco ecd
@z[0] = 0.0 3.598 3.275 3.675 3.585
@z[1] = 3.598 0.0 3.201 3.618 3.497
@z[2] = 3.275 3.201 0.0 3.232 3.157
@z[3] = 3.675 3.618 3.232 0.0 3.535
@z[4] = 3.585 3.497 3.157 3.535 0.0
@z[5] =

J'aimerai modifier mon script pour avoir mes résultats sous ce format :

@x = ['ecj', 'ebw', 'ecok', 'eco', 'ecd']
@y = ['ecj', 'ebw', 'ecok', 'eco', 'ecd']
@z = [0.00, 3.598, 3.275, 3.675, 3.585], [3.598, 0.0, 3.201, 3.618, 3.497], [3.275, 3.201, 0.0, 3.232, 3.157], [3.675, 3.618, 3.232, 0.0, 3.535], [3.585, 3.497, 3.157, 3.535, 0.0]

Merci par avance :)

Bonjour.

Le morceau de code Perl fourni n'est pas fonctionnel.
La qualité de la demande est un facteur qui influence la qualité des réponses.

Pour modifier la sortie vous pouvez joué avec la section #affichage des données. Exemple:

Code:

---

print "@x = ['", join "', '", @x, "']\n";

---

Pour les lignes @x et @y, quelque chose de ce genre:

Code:

---

1 2 3

my $str = join ', ', map {'"' . $_ . '"' } @x; print '@x = [', $str, ']';

---

Ce qui affiche (avec mes données que j'imagine identiques aux tiennes):

Code:

---

1 2	@x = ["ecj", "ebw", "ecok", "eco", "ecd"]

---

Pour les valeurs, une solution particulièrement concise, puisqu'elle tient en une seule ligne de code (et plutôt élégante à mon sens):

Code:

---

1 2	print '@z = ', join ', ', map { '[' . join (', ', @$_) . ']' } @z;

---

Ce qui affiche (toujours avec mes données supposément identiques aux tiennes):

Code:

---

1 2	@z = [0, 3.598, 3.275, 3.675, 3.585], [3.598, 0, 3.201, 3.618, 3.497], [3.275, 3.201, 0, 3.232, 3.157], [3.675, 3.618, 3.232, 0, 3.535], [3.585, 3.497, 3.157, 3.535, 0]

---

Mais il se peut que l'utilisation du module Data::Dumper (module standard toujours pré-installé avec Perl) ou Data::Dump (module CPAN à installer éventuellement) te donne directement à peu près ce que tu recherches.