7 moi

sub readConfigFile() {
    print "Lecture du fichier de config : ",$configFile,"\n";
    open(FILE,$configFile) || die("Erreur à l'ouvertude du fichier");
    my %tab;
    @file = <FILE>;
    close(FILE);
    foreach $ligne (@file){
	@line = split(/:\ /,$ligne);
	push(@plop,@line);	
    }
    %tab = @plop;
    print "Chargement des paramètres...";
    chomp($signature = $tab{"signature"});
    chomp($font = $tab{"police"});
    chomp($pointsize = $tab{"pointsize"});
    chomp($textColor = $tab{"textColor"});
    chomp($imgSize = $tab{"imgMaxDim"});
    print "OK\n";
#    print "paramètres lus : ",$signature," ",$font," ",$pointsize," ",$textColor," ",$imgSize,"\n";
#    exit(0);
}