print ?

À (at) Mon, 29 May 2006 10:35:55 +0200,
"kurtz_le_pirate"

encore un mystère de perl pour moi. si je résume :

si je fais :
print $objPropEntry->Name," : $value\n";
j'obtiens par exemple :
scriptPath : Scr_ctx_ScripteC.bat

si je fais :
print OUTFILE $objPropEntry->Name." = $value\n";
j'obtiens
scriptPath : Scr_ctx_ScripteC.bat

si je fais :
print OUTFILE "$objPropEntry->Name = $value\n";
j'obtiens :
Win32::OLE=HASH(0x199bf24)->Name = Scr_ctx_ScripteC.bat

pourquoi n'y a-t-il pas d'interpretation de $objPropEntry->Name dans
ce cas ?

Perl n'effectue d'interpolation que sur les variables... pas sur les
appels de procédures, de fonction ou de méthodes.

La manière simple de faire est donc :

print $objPropEntry->Name, " = $value\n";

ou :

print $objPropEntry->Name . " = $value\n";

(Dans le premier cas, la méthode est appelée dans un contexte de liste
alors que dans le second, elle est appelée dans un contexte scalaire.)

Pour forcer l'interpolation d'un appel de fonction, on peut écrire :

print "@{[$objPropEntry->Name]} = $value\n";

ou :

print "@{[scalar $objPropEntry->Name]} = $value\n";

(Dans le premier cas, la méthode est appelée dans un contexte de liste
alors que dans le second, elle est appelée dans un contexte scalaire.)

Ce n'est pas complètement équivalent à cause de la variable $, qui est
utilisée lors de l'interpolation d'une liste. De plus, dans ce cas, le
passage par l'interpolation est plus lent.

--
Paul Gaborit - Perl en français -