Bonjour je suis étudiant actuellement en stage je rencontre un problème dans mon script perl ( langage avec lequel je n'avais jamais eu de contact ) , ne trouvant pas la solution j'aurai besoin d'aide de la part d'une ame charitable .
D'avance merci .

Script:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
sub recup_appli ()
{
  my ($clef,$valeur) ;
 
  # Correspondance des hostnames ou des URL des SERVEURS avec les applications hébergées ..
 
  my $fic ;
 
  open ($fic,"Ref_applications.txt") or die ( write_log ("impossible d'ouvrir le fichier Ref_applications.txt")); 
  while ( <$fic> )
  { 
	chomp ;
	($clef,$valeur) = split(";",$_,2) ;  
	$applications{"$clef"} = $valeur ;
  }
  close($fic) ;
}

Undefined subroutine &main::write_log called at line 9