Salut,

je vais me pencher demain sur ton problème :-)

cependant j'aurai besoin de ton fichier tableip.csv à moins qu'il est confidentiel.

je vais reécrire ton script (la manière dont tu as écrit le tien je n'aime pas trop, même si en Perl on est libre de faire ce qu'on veux, à savoir que c'est bien d'avoir une certaine discipline) et je vais te donner des explications, biensûr si ça t'interesse ;-)

Par exemple
open DB, ">/var/named/toto.fr";

C'est correct :-)
Toutefois c'est bien d'utiliser un test dans le cas qu'on ne peux pas créer le fichier en mode écriture.

Voilà par exemple plusieurs façon d'ouvrir un fichier en écriture (en gras c'est ceux qu'on préfére en général et en particulier avec la version or die)
unless (open(F_WRITE,">$fichier")) { die "E/S : $!\n" }
if (!open(F_WRITE,">$fichier")) { die "E/S : $!\n" }

die "E/S : $!\n" unless open(F_WRITE,">$fichier");
die "E/S : $!\n" if !open(F_WRITE,">$fichier");

open(F_WRITE,">$fichier") || die "E/S : $!\n";
open F_WRITE,">$fichier" or die "E/S : $!\n";
Donc tous les 6 lignes de code font exactement la même chose :-)
A choisir celle qui te conviens.

A toi.