この問題についてサポートが必要です。過去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',
},
]
}
（新しいコメント：このようなデータがあります。詳しく調べると、student要素とaddress要素で同じ名前と番号があります。address要素にもう1つアドレスがあります。次に、studentnameとを検索する必要があります。アドレス要素に番号を付けて、その学生の住所を取得します。同じ名前で番号が異なる場合があるため、番号と名前の両方で学生の住所を検索する必要があります。）
そして私はこのように処理しました
#!/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}
しかし、私は私が望むものではなく、異なる出力を取得しています。このスクリプトを実行した後、電子工学の学生が3人以上いて、各学生に2学期以上ある場合に出力が表示されますが、取得できるのは自分だけです。それ以外の場合は、studentdataを印刷するだけで何でも印刷されます：3回。たとえば、そのような状況で大学に1学期の学生が1人いる場合、このように印刷することはできません。
studentdata:
studentdata:
studentdata:
なぜforループがそのように実行されているのか、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}