[debutant] Probleme script perl

Fais simplement

Code:

---

print $1.", ";

---

et si la dernière virgule t'ennuie, tu peux utiliser une variable que tu incrémentes à chaque passage dans le while et utiliser le test (en combinaison avec ton expression régulière)

Code:

---

1 2	if($n == 0){print $1;} else{print ", ".$1;}

---

et en utilisant le join

Code:

---

1 2 3 4 5 6 7 8 9 10

my @array; while (<$ftpdFH>) { if (/^(\w*)\b/) {push (@array, $1);} } close ($ftpdFH) ;   my $text = join (", ", @array); print $text;

---

merci pour votre aide.

je vais me re plancher sur les cours perl, je suis un peu perdu :)

Va voir sur le FAQ et n'hésite pas à poser des questions
http://perl.developpez.com/faq/