Bonjour,

J'ai un fichier qui DOIT être de cette forme :

test.pl
***************************************************

#!/usr/bin/perl

return {
toto => $objet ,
titi => val
}

***************************************************
Les valeurs de toto et titi donc $objet et val sont obtenus dynamiquement a partir d'un autre script.
Je voudrais donc CREER mon fichier test.pl de cette manière :

***************************************************
#!/usr/bin/perl

my $toto = new Objet() ;
my $titi = val ;

open OUT , ">test.pl" ;
print OUT "#!/usr/bin/perl\n" ;
print OUT "return {\n" ;
print OUT "toto => $toto\n" ;
print OUT "titi => $titi\n" ;
print OUT "}\n" ;
close OUT ;
****************************************************

bien sur cela ne fonctionne pas puisque $toto est un objet...
je me suis dit que j'allais utiliser Data:umper pour dumper l'objet et j'ai donc remplacer la ligne toto par :
use Data:umper ;
print OUT "toto =>" . Dumper($toto) . "\n" ;

lorsque je regarde le fichier créé (test.pl) j'ai quelque chose comme ceci :

#!/usr/bin/perl

return {
toto => bless({cle=>valeur},classObjet ,
titi => val
}

Est ce que le code est utilisable tel quel ?
ou bien dois-je ajouter dans test.pl un "use classObjet" ?

merci