Discussion :

[vince2005]

Bonjour,

J'ai une variable avec un séparateur ",". Je souhaiterai affiché chaque champs contenus dans cette variable.

Exemple :

Code :

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

1
2
 
my $toto="rouge,jaune,vert,noire,"

Et je souhaiterai afficher ligne par ligne via un print.

rouge
jaune
vert
noire

C'est super simple apparemment, mais je débute en perl.

Merci

[6ril23]

Alors soit tu fais simplement un découpage puis un print:

Code :

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

1
2
3
4
5
my $toto="rouge,jaune,vert,noire,";
my @liste = split(',', $toto);
foreach my $elt ( @liste ){
     print "$elt\n";
}

Soit tu décides de modifier la chaine directement:

Code :

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

1
2
3
my $toto="rouge,jaune,vert,noire,";
$toto =~ s/,/\\n/g;  # remplace les ',' par des retour à la ligne
print $toto

[Lolo78]

Bonnes solutions proposées par 6ril23.

On peut aussi, sans modifier la chaîne et en une seule ligne de code:

Code :

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

1
2
my $toto="rouge,jaune,vert,noire,";
print join "\n", split /,/, $toto;