Undefined subroutine &main:: ..called at , besoin d'aide
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:
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) ;
} |
Citation:
Undefined subroutine &main::write_log called at line 9
