Mercurial > pub > buggler
comparison translate.pl @ 1:d1400de5832b
improved xsl
author | cin |
---|---|
date | Fri, 21 Aug 2015 20:07:52 +0300 |
parents | 8cae44c166d3 |
children | d2efec56373f |
comparison
equal
deleted
inserted
replaced
0:8cae44c166d3 | 1:d1400de5832b |
---|---|
1 #!/usr/bin/perl -w | 1 #!/usr/bin/perl -w |
2 | 2 |
3 xalan( -IN => "bug-list2.xml", -XSL => "bug-list.xsl" ); | 3 our @ClassPath = qw( |
4 /usr/share/java/xalan-j2-serializer.jar | |
5 /usr/share/java/xalan-j2.jar | |
6 /usr/share/java/xerces-j2.jar | |
7 /usr/share/java/xml-commons-resolver.jar | |
8 . | |
9 ); | |
10 | |
11 xalan( | |
12 -IN => "bug-list1.xml", | |
13 -XSL => "bug-list.xsl", | |
14 -URIRESOLVER => "org.apache.xml.resolver.tools.CatalogResolver", | |
15 -ENTITYRESOLVER => "org.apache.xml.resolver.tools.CatalogResolver" | |
16 ); | |
4 | 17 |
5 sub xalan { | 18 sub xalan { |
6 my %params = @_; | 19 my %params = @_; |
7 | 20 return system 'java', |
8 return system java => -cp => "/usr/share/java/xalan-j2-serializer.jar:/usr/share/java/xalan-j2.jar", "org.apache.xalan.xslt.Process", %params; | 21 -cp => join( ':', @ClassPath ), |
22 "org.apache.xalan.xslt.Process", %params; | |
9 } | 23 } |
10 | 24 |
11 __END__ | 25 __END__ |
12 | 26 |
13 =pod | 27 =pod |