A perl script for XSLT using MSXML

Last version:https://gist.github.com/1053576

sub TransformWithArgs {

my ( $xsltFile , $xmlFile , $argsHash ) = @_ ;

my $template = Win32:: OLE -> new ( 'MSXML2.XSLTemplate.4.0' )

or die "Couldn't create MSXML2.XSLTemplate object.\n" ;

my $xsltDoc = Win32:: OLE -> new ( 'MSXML2.FreeThreadedDOMDocument.4.0' )

or die "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 = Win32:: OLE -> new ( "Msxml2.DOMDocument.4.0" );

$xmlDoc -> load ( $xmlFile );

$xmlDoc || die "Failed to load $xmlFile\n" ;

# Note: ? The code can not work here: $xsltProc->{input} = $docXhtml;

$xsltProc -> LetProperty ( 'input' , $xmlDoc );

# Add parametes of XSLT

foreach my $key ( keys %$argsHash ) {

$xsltProc -> addParameter ( $key , $argsHash -> { $key });

}

$xsltProc -> transform () or die "Faied to transform.\n" ;

my $result = $xsltProc -> { output };

$result ;

}