Discussion :

[Jasmine80]

Fais simplement

Code :

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

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 :

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

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

et en utilisant le join

Code :

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

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;

[bob2099]

merci pour votre aide.

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

[Jasmine80]

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