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 |
