如何用perl

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 

但運行此腳本後，它不給任何錯誤genarate新的XML文件，它genarating 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，因爲您的打印語句正在將"<<EOF"寫入該文件。通過改變

print $file (<<EOF); 

到

print $file <<EOF 

和EOF線從

EOF 

到

EOF 
; 

你寫入的XML文件的腳本。

Answer 2

考慮使用模塊來編寫XML，請參閱How can I create XML from Perl?。