Discussion :

[kafifi]

Bpnsoir,

Après remplissage d'un tableau via "push", j'ai imprimé son contenu pour vérification.
"Bizarrement", les retours chariots n'y sont plus. Pourtant, j'avais pris soin de les ajouter
avant la commande "push".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
my @tab1;
my @tab2;
 
 foreach $line1 (@tab1)
  {
    $line1 = ($line1."\n");
    print "line1 : $line1";
    push (@tab2,$line1);    
     }
  }    
 
print @tab2;

Comment dois-je faire pour stocker chaque élément avec son retour chariot,
ou pour en insérer en à l'impression ?

Merci pour votre aide.

[MarneusCalgarXP]

Personnellement, quand j'exute ton script, j'ai bien les retours à la ligne...

en executant ton script avec l'initalisation suivante:

Code :

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

my @tab1 = ('a', 'b', 'c', 'd');

J'obtiens la sortie

Code :

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

1
2
3
4
5
6
7
8
9
 
line1 : a
line1 : b
line1 : c
line1 : d
a
b
c
d

Qui est bien celle attendue (le print ne rajoute pas de retour chariot).

PS : On peut simplifier pas mal ton code

Code :

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

1
2
3
4
5
6
 
my @tab1 = ('a', 'b', 'c', 'd');
my @tab2; 
 
foreach (@tab1) { push (@tab2, $_); }
print(join("\n", @tab2));

ou encore

Code :

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

1
2
3
 
my @tab1 = ('a', 'b', 'c', 'd');
print(join("\n", @tab1));

[Jedai]

Les retours chariots sont toujours là, qu'est-ce qui te fait croire qu'il n'y sont plus ?

--
Jedaï

[kafifi]

Pour ne pas charger le post, je n'ai fourni que le contenu d'une boucle (elle même incluse dans une autre).
En regardant de plus près, le souci venait d'une commande "chomp" en amont, que j'avais omis de supprimer
Maintenant cela fonctionne parfaitement.

PS : le print n'ajoute évidemment pas de retour chariot, il m'aide à visualiser en phase de test.

Désolé et merci pour votre aide.