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
Partager