У меня есть простая Perl-программа, которая читает XML-файл и XSLT-файл и запускает преобразования для него, как это
COMMAND:
perl perl_xslt_translator.pl C000143.xml 04_TestStylesheet.xsl C000143_04.xml PROG123
Код Perl выглядит следующим образом.
КОД:
use strict;
use warnings;
use Data::Dump qw(dump);
use XML::LibXML;
use XML::Simple;
use XML::LibXSLT;
use XML::LibXML;
use Data::Dumper;
print "Perl Starting ... \n\n";
#
# This reads the filename as an argument
#
# store the 1st argument into the variable
my ($XML_FILE, $XSLT_FILE, $OUTPUT_FILE, $PROGRAM_NAME) = @ARGV;
print "XML File: $XML_FILE ... \n";
print "XSLT File: $XSLT_FILE ... \n";
print "PRGM Name: $PROGRAM_NAME ... \n";
print "Output File: $OUTPUT_FILE ... \n";
#create output file
open(my $output_xml_file_name, '>', $OUTPUT_FILE);
my %in_params = (
PROGRAM => "$PROGRAM_NAME",
);
my $parser = XML::LibXML->new();
my $xslt = XML::LibXSLT->new();
print "Reading files ... \n\n";
my $source_xml = $parser->parse_file($XML_FILE);
my $xslt_doc = $parser->parse_file($XSLT_FILE);
my $stylesheet = $xslt->parse_stylesheet($xslt_doc);
print "Transforming XML ... \n\n";
my $results = $stylesheet->transform($source_xml, XML::LibXSLT::xpath_to_string(%in_params));
print "Saving XML ... \n\n";
print $output_xml_file_name "$results";
print "\nPerl End ... \n\n";
У меня проблема в том, что для очень больших файлов XML размером 500 МБ я получаю следующую ошибку. С меньшими файлами 70 - 100 МБ работает нормально. Как я могу настроить maxdepth от 250 до, скажем, 5000?
ОШИБКА ВЫХОДА:
runtime error: file 04_TestStylesheet.xsl element param
xsltApplyXSLTTemplate: A potential infinite template recursion was detected.
You can adjust xsltMaxDepth (--maxdepth) in order to raise the maximum number of nested template cal
ls and variables/params (currently set to 250).
В соответствии с предложением пользователя ниже, я изменил эту строку на
my $xslt = XML::LibXSLT->new()->max_depth(1000);
но теперь я получаю эту ошибку.
Can't locate object method "parse_stylesheet" via package "250" (perhaps you forgot to load "250"?)
at perl_xslt_translator.pl line 38.
Here line38# my $stylesheet = $xslt->parse_stylesheet($xslt_doc);