如何使用perl生成新的xml文件

Question

我正在使用 perl 脚本生成新的 xml 文件，但我有一个小问题，我编写了这样的脚本，

 #!/usr/bin/perl
 use warnings; 
  use strict;
open my $file, '>>', 'data.xml' or die "Can't open file: $!";
 print $file (<<EOF);
<?xml version="1.0" encoding="UTF-8"?>
<Detailsofuniversitys xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
 <Identification>
  <Ind>03.20.00</Ind>
</Identification>
<MetaData>
<History>
 <Entry>
  <Date>2010-10-19</Date>
<Note>IND Created</Note>
</Entry>
</History>
 <Status>P</Status>
 <StoringAndErasing>Not Defined</StoringAndErasing>
 <StoringAndErasing>Not Defined</StoringAndErasing>
 </MetaData>
 <university>
 <name>svu</name>
 <location>ravru</location>
<branch>
<electronics>
 <student name="xxx" number="12">
 <semester number="1"subjects="7" rank="2"/>
 </student>
 <student name="xxx" number="15">
 <semester number="1" subjects="7" rank="10"/>
 <semester number="2" subjects="4" rank="1"/>
  </student>
   <student name="xxx" number="16">
   <semester number="1"subjects="7" rank="2"/>
  <semester number="2"subjects="4" rank="2"/>
   </student>
</electronics>
  </branch>
</university>
<university>
  <name>sku</name>
    <location>ANTP</location>
<branch>
 <electronics>
   <student name="xxx" number="12">
 <semester number="3"subjects="6" rank="20"/>
 </student>
   <student name="xxx" number="16">
   <semester number="1"subjects="9" rank="12"/>
  <semester number="2"subjects="4" rank="2"/>
   </student>
    </section>
</electronics>
 </branch>
</university>
 EOF

但运行此脚本后它没有给出任何错误，它生成 xml 文件，当我尝试打开该 xml 文件时，

 The XML page cannot be displayed 
  Cannot view XML input using XSL style sheet. Please correct the error and then click   
  the Refresh button, or try again later. 


   The following tags were not closed: gpx, gpx, detailsofuniversitys. Error processing 
     resource 'file:///C:/files/star/data...

我没有知道是什么错误了，怎么打开。 perl 脚本中是否有任何错误。否则如何使用 perl 生成新的 xml 文件。（xml 数据如下所示），是否有任何选项。

Answer 1

考虑使用模块来编写 XML，请参阅如何从 Perl 创建 XML？< /a>.

Answer 2

我刚刚运行了你的脚本，它不能按原样工作。您的脚本试图理解您以字符串形式提供的 XML，因为您的 print 语句正在将 "< 写入文件。通过更改

print $file (<<EOF);

为

print $file <<EOF

以及 EOF 行，

  EOF

您

EOF
;

将获得一个将 XML 写入文件的脚本。