 # table de hachage des lieux

 %lieu = ("sac"      => "~/public_html/Farcompr",
          "statasi"  => "/home/info/gh/Crs/Stat/Asi" ) ;

 @courts = keys %lieu ;

 # gestion des paramètres

 foreach $idp (@ARGV) {
      $specfic .= $lieu{$idp}."/*.xml " if (exists $lieu{$idp}) ;
 } ; # fin de pour idp = 1 to mots(ARGV)

 if ($specfic eq "") {
    die("aucun paramètre valide ? vous devez utiliser les mots de '@courts' ") ;
 } else {
    print "spécification[s] pour l'archive : \n     $specfic\n\n" ;
 } ; # fin de si

