我需要帮助解决这个问题，我在过去的15天里苦苦挣扎，请帮助我。我有xml文件，我使用XML :: simple存储在变量中。我通过模板工具包处理。我收到这样的错误
$var1={
university=>{
'name'=>'svu',
'location'=>'ravru',
'branch'=>{
'electronics'=>{
'student'=>[
{
'name'=>'mikky',
'number'=>'12',
'semester'=>{
'Number'=>'1',
'subjects'=>'7',
'rank'=>'1'
}
},
{
'name'=>'vijju',
'number'=>'15',
'semester'=>[
{
'number'=>'1',
'subjects'=>'7',
'rank'=>'10'
},
{
'number'=>'1',
'subjects'=>'7',
'rank'=>'1'
}
]
},
{
'name'=>'shyam',
'number'=>'16',
'semester'=>[
{
'number'=>'1',
'subjects'=>'7',
'rank'=>'2'
},
{
'number'=>'2',
'subjects'=>'4',
'rank'=>'2'
}
]
}
}
]
}
};
university=>{
'name'=>'sku',
'location'=>'ANTP',
'branch'=>{
'electronics'=>{
'student'=>[
{
'name'=>'xxx',
'number'=>'12',
'semester'=>{
'Number'=>'3',
'subjects'=>'6',
'rank'=>'20'
}
},
{
'name'=>'xxx',
'number'=>'6',
'semester'=>[
{
'number'=>'1',
'subjects'=>'9',
'rank'=>'12'
},
{
'number'=>'2',
'subjects'=>'4',
'rank'=>'2'
}
]
}
}
]
}
};
'studentaddres'=>{
'address'=>[
{
'name'=>'mikky',
'number'=>'12',
'adress'=>' badvel,kadapa,a.p,india',
},
{
'name'=>'vijju',
'number'=>'15',
'adress'=>' raipur,ananthapur,a.p,india',
},
{
'name'=>'shyam',
'number'=>'16',
'adress'=>' raighad,rajsthan,india',
},
]
}
（新评论：我有这样的数据，如果我们深入研究我在学生元素和地址元素中有相同的名称和数字，我在地址元素中还有一个地址。现在我需要搜索地址元素中的学生姓名和号码，并获取该学生的地址。有时我的姓名不同，所以我需要搜索学生地址的姓名和名称。）
我按照这样处理
#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
use XML::Simple;
use XML::Fast;
use Template;
my $xml = new XML::Simple;
my $data = $xml->XMLin("data.xml");
print Dumper($data);
my $template = Template->new();
my $filename = 'output.tex';
$template->process(\*DATA, $data, $filename)
|| die "Template process failed: ", $template->error(), "\n";
system( "pdflatex $filename" );
__DATA__
\documentclass[a4paper,leqno,twoside]{article}
\begin{document}
[% FOREACH st IN university %]
[% st.name %]
[%st.location%]
studentdata:
[% FOREACH student IN st.branch.electronics.student %]
Component type: [%+ student.name +%][%+ student.number +%]
[% FOREACH semester IN student.semester %]
[%+ semester.number +%]
[%+ semester.subjects +%]
[%+ semester.rank +%]
[% END %]
[% END %]
[% END %]
\end{document}
但是我获得了不同的输出而不是我想要的。执行这个脚本后，当我有三个或更多的电子学生和每个学生两个或更多学期时，我得到输出，然后我才得到。否则它会打印任何只打印studentdata的东西：三次。例如，如果我有一个学生在大学就读一个学期，那么就不会像这样打印任何东西
studentdata:
studentdata:
studentdata:
为什么循环就是这样执行，我无法理解错误赢得for循环但我需要像这样打印
name:
svu
location:
ravru
student data:
student name=xxx number=12
semester number=1 subjects=7 rank=2
student name=xxx number=15
semester number=1 subjects=7 rank=10
semester number=2 subjects=4 rank=1
student name=xxx number=16
semester number=1 subjects=7 rank=2
semester number=2 subjects=4 rank=2
#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
use XML::Simple;
use XML::Fast;
use Template;
my $studentaddres;
my $xml = new XML::Simple;
my $data = $xml->XMLin("data.xml", ForceArray=>1);
print Dumper($data);
my $template = Template->new();
my $filename = 'output.tex';
$template->process(\*DATA, $data, $filename)
|| die "Template process failed: ", $template->error(), "\n";
$studentaddres->{by_student_number}
= { map { $_->{number} => $_ } @{ $studentaddres->{address} }};
system( "pdflatex $filename" );
__DATA__
\documentclass[a4paper,leqno,twoside]{article}
\begin{document}
[% FOREACH st IN university %]
[% st.name %]
[%st.location%]
studentdata:
[% FOREACH student IN st.branch.electronics.student %]
Component type: [%+ student.name +%][%+ student.number +%]
[% address = studentaddres.by_student_number.item( student.number );
IF address %]
[% address.adress %]
[% END %]
[% FOREACH semester IN student.semester %]
[%+ semester.number +%]
[%+ semester.subjects +%]
[%+ semester.rank +%]
[% END %]
[% END %]
[% END %]
\end{document}
答案 0 :(得分：3)
首先，您的数据无效perl。其次，迭代哈希为您提供（类似Java）“条目”对象。所以'st'=＆gt; {key =＆gt; 'name'，value =＆gt; 'svu'}。因此st.name没什么。
这更像你想要的（或者无论如何都有效）：
name:
[% university.name %]
location:
[% university.location %]
studentdata:
[%- FOREACH student IN university.branch.electronics.student %]
student name=[% student.name %] number=[% student.number %]
[%- FOREACH semester IN student.semester %]
semester number=[% semester.number %] subjects=[% semester.subjects
%] rank=[% semester.rank %]
[%- END -%]
[%- END -%]
我不得不将学生＃12上的'学期'改为数组，并将'数字'去大写。这就是你所拥有的：
'semester'=>{
'Number'=>'1',
'subjects'=>'7',
'rank'=>'1'
}
这就是我改为：
'semester'=>[{
'number'=>'1',
'subjects'=>'7',
'rank'=>'1'
}]
没有学期作为数组，你只是再次迭代这种类型的东西：
( { key => 'number', value => '1' }
, { key => 'subjects', value => '7' }
, { key => 'rank', value => '1' }
)
并不一定（或甚至可能）按此顺序。
使用正确关闭的$var1作为数据，我上面的代码给了我：
\documentclass[a4paper,leqno,twoside]{article}
\begin{document}
name:
svu
location:
ravru
studentdata:
student name=xxx number=12
semester number=1 subjects=7 rank=1
student name=xxx number=15
semester number=1 subjects=7 rank=10
semester number=1 subjects=7 rank=1
student name=xxx number=16
semester number=1 subjects=7 rank=2
semester number=2 subjects=4 rank=2
\end{document}
要调试脚本，您可能需要进行以下更改：
my $template = Template->new( { EVAL_PERL => 1 } );
然后，在您想要查看要解决的结构的位置，请执行以下操作：
[% RAWPERL %]
use Data::Dumper ();
print Data::Dumper->Dump( [ $stash->get( 'semester' ) ], [ 'semester' ] ), "\n";
[% END %]
您将很快看到学期中的哈希没有数字，科目或排名字段。
（回答评论）好吧，如果你有一些学生的地址有些没有，你可以做以下事情：
[% IF student.address;
addr = student.address; %][%-
-%]Address: [% addr.lines.1 %]
[% addr.lines.2 %]
[% addr.city %], [% addr.state %] [% addr.zip %]
[% END %]
或者，如果您有地址哈希，则可以执行以下操作。
[% IF address_for_student.exists( student.number );
address = address_for_student.item( student.number );
%]
...
[% END %]
（回答问题的新地址部分）
您可以在演示前按摩您的数据。这是我建议在将数据传递到表示层之前的建议。 （这里$studentaddres只是对藏匿结构的引用。）
$studentaddres->{by_student_number}
= { map { $_->{number} => $_ } @{ $studentaddres->{address} }}
;
然后，在表示层中，您可以这样做：
[% address = studentaddres.by_student_number.item( student.number );
IF address %]
...
[% END %]
通常，您应该将之前所需的链接添加到表示层，这使得表示层只是显示数据的问题。
XML存储您的模型。精细。 XML可以很好地完成树，但不能很好地完成复杂的图形。因此，如果你有复杂的关系（并且XML :: Simple不会知道关于那些的任何），你必须使用这种类型的算法模型：检索→链接→显示 。你必须使用YAML或JSON甚至是从数据库中提取的行来执行此操作，因此链接阶段对我来说是第二天性的。
表示层是搜索的错误层。它应该只处理0,1或许多或简单情况的列表，例如关系存在或不存在。