sub transmettre{ my ($Nomfich) = @_;
		  open(FICH,$Nomfich) ;
                  while(<FICH>)
		  {print}
                  close FICH;}

sub transmettredyn{ my ($Nomfich) = @_;
                   
		  open(FICH,$Nomfich) ;
                  while($Ligne=<FICH>)
		     {$Ligne =~s/<!--ENV--(\w+)-->/$ENV{$1}/g;
		      $Ligne =~s/<!--VARDYN--(\w+)-->/$VARDYN{$1}/g;
                      print $Ligne;}
                  close FICH;
		}

sub ouvrirrep{my ($repertoire,$grep)=@_;
	      my @liste;
	      opendir(DIR,"$repertoire");
	      @liste=grep($grep, readdir DIR);
	      close(DIR);
	      return @liste;
	  }

sub ouvrirfich{my ($fichier)=@_;
	       my %hachage;
	       open(FICH,"$fichier");
	       while($ligne=<FICH>) {
		   chomp ($ligne);
	($cle,$valeur)=split(/ /,$ligne);
		   $hachage{$cle}=$valeur;}
	       return %hachage;
	   }
1;