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
> }
>
>