decoupage d'une variable avec séparateur

Bonjour,

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

Exemple :

Code:

---

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

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

Code:

---

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:

---

1 2 3

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

---

Bonnes solutions proposées par 6ril23.

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

Code:

---

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

---