sub
TransformWithArgs
{
????
my
(
$xsltFile
,
$xmlFile
,128); ">$argsHash
)
=
@_
;
????
my
$template
=
Win32::
OLE
->
new
(
'MSXML2.XSLTemplate.4.0'
)
???????
or
die
"Couldn't create MSXML2.XSLTemplate object.n"
;
????
my
$xsltDoc
=
'MSXML2.FreeThreadedDOMDocument.4.0'
)
???????
or
"Couldn't create MSXML2.FreeThreadedDOMDocument.4.0 object.n "
;
????
$xsltDoc
->
{
async
}
=
"false"
;
????
$xsltDoc
->
{
resolveExternals
}
=
"false"
;
???
$xsltDoc
->
load
(
$xsltFile
);
???
$template
->
{
stylesheet
}
=
$xsltDoc
;
????
my
$xsltProc
=
$template
->
createProcessor
();
????
my
$xmlDoc
=
"Msxml2.DOMDocument.4.0"
);
???
$xmlDoc
->
load
(
$xmlFile
);
????
$xmlDoc
||
"Failed to load $xmlFilen"
;
????
# Note: ? The code can not work here: $xsltProc->{input} = $docXhtml;
???
$xsltProc
->
LetProperty
(
'input'
,128); ">$xmlDoc
);
????
# Add parametes of XSLT
????
foreach
my
$key
(
keys
%$argsHash
)
{
???????
$xsltProc
->
addParameter
(
$key
,128); ">$argsHash
->
{
$key
});
????
}
???
$xsltProc
->
transform
()
or
"Faied to transform.n"
;
????
my
$result
=
$xsltProc
->
{
output
};
????
$result
;
}
