Re: [HS] script perl avec redondances

[herve <campos.herve@wanadoo.fr>]

Nicolas Roudninski a écrit :

> sub read_data {
> 	open DATAFILE, "$home_dir/amis.dat"
> 		or die "Fichier introuvable !";
> 	while (<DATAFILE>) {
> 		chomp;
> 		push @amis, $_."\n";
>  
c'est ici  : @amis n'est pas vide la seconde fois et à la nième tu as n 
fois la liste de tes amis dans @amis

> 	}
>