Discussion :

[pascaloupsu]

Bonjour,
Je dispose d'un tableau "@coeff_lines" qui se trouve sous cette forme:

10 10 7 8 8 10
7 8 10 7 10 10
7 8
e
12$$ a0001 code
1001001 1002306 70014089 80092235 80094238
7002005 8002005 10000000 10000145 10078523
8000014 7012354 10003155 8002245 e


Je souhaiterais avoir tous ces caracteres dans une colonne, en concervant l'ordre de dsiposition, de cette maniere:
10
10
7
8
...
10003155
8002245
e

#remplacer les espaces par des sauts de lignes; cela marche, sauf pour le dernier caractere de ma ligne.

for my $line (@coeff_lines){
@splitted_lines = join ("\n" split (" ", $line));
}

ce qui supprime les espaces et les envoie a la ligne, comme je le souhaite, mis a part le dernier caractere de chaque ligne (10 ; 10 ; 8; e; code; 80094238; 10078523; e) car ce caractere ne presente pas d'espace apres.
Avez-vous une solution?
J'ai essaye d'ajouter en premier lieu un espace apres le dernier caractere, et ensuite utiliser le code ci-dessus, mais je n'ai pas trouve comment ajouter un espace en fin de ligne.

#ajouter des espaces en finde ligne; cela m'ajoute un esapce, mais me supprime le dernier caractere de #ma ligne

$line =~ s /(.)$/ \3 /;

[Philou67430]

Je suppose qu'en mettant ceci dans la boucle ça marchera mieux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
chomp($line);
@splitted_lines = map "$_\n", split /\s+/, $line;

[Lolo78]

Bonjour,

Avec split:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for my $line (@coeff_lines){
     print map {"$_\n"} split " ", $line;
}

Ou si tu les veux dans un tableau:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
my @splitted_lines;
for my $line (@coeff_lines){
     @splitted_lines = map {"$_\n"} split " ", $line;
}

Ajouter un espace en fin de ligne avec une regex:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$line =~ s /(.)$/$1 /;

Edit : grillé par Philou.

[pascaloupsu]

Merci beaucoup pour votre aide