Last version: https://gist.github.com/1053576
sub TransformWithArgs {my ( $xsltFile , $xmlFile ,128); ">$argsHash ) = @_ ;
my $template = Win32:: OLE -> new ( 'MSXML2.XSLTemplate.4.0' )
my $xsltDoc = 'MSXML2.FreeThreadedDOMDocument.4.0' )
$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 );
# Note: ? The code can not work here: $xsltProc->{input} = $docXhtml;$xsltProc -> LetProperty ( 'input' ,128); ">$xmlDoc );
# Add parametes of XSLTforeach my $key ( keys %$argsHash ) {}
$xsltProc -> transform () or "Faied to transform.\n" ;my $result = $xsltProc -> { output };
$result ;}
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。