如何使用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？ 。

Answer 2

我只是運行了您的腳本，它無法按原樣工作。 您的腳本正試圖弄清您以字符串文字形式提供的XML，因為您的打印語句正在向文件寫入"<<EOF" 。 通過改變

print $file (<<EOF);

至

print $file <<EOF

和EOF行從

  EOF

至

EOF
;

您將獲得一個將XML寫入文件的腳本。