如何使用Perl將XML數據寫入文件？

Question

請問下面請更正我的代碼。

#!/usr/local/bin/perl 

open (MYFILE, '>>data.xml'); 
print MYFILE "<?xml version="1.0" encoding="UTF-8"?>\n"; 
close (MYFILE); 

已更新。

#!/usr/local/bin/perl 
open (MYFILE, '>>data.xml'); 
print MYFILE '<?xml version="1.0" encoding="UTF-8"?\>'."\n"; 
print MYFILE '<?xml version="1.0" encoding="UTF-16"?\>'."\n"; 
close (MYFILE); 

輸出：現在運行良好。

<?xml version="1.0" encoding="UTF-8"?\> 
<?xml version="1.0" encoding="UTF-16"?\> 

但是。

#!/usr/local/bin/perl 
open (MYFILE, '>>data.xml'); 
print MYFILE '<?xml version="1.0" encoding="UTF-8"?\>'.'\n'; 
print MYFILE '<?xml version="1.0" encoding="UTF-16"?\>'.'\n'; 
close (MYFILE); 

輸出：＃錯誤格式\ n

<?xml version="1.0" encoding="UTF-8"?\>\n<?xml version="1.0" encoding="UTF-16"?\>\n 

Answer 1

print MYFILE qq{<?xml version="1.0" encoding="UTF-8"?>\n}; 

你的問題是，你已經嵌套雙引號;使用qq{}來分隔字符串將解決此問題。

Answer 2

我會建議使用：

use XML::Simple; 

Answer 3

下面是我的一些代碼，打印一個XML文件：

open(XML, ">$xmlfile"); 
print XML (<<EOF); 
<?xml version="1.0" encoding="UTF-8"?> 
<gpx 
version="1.1" 
creator="Navaid Waypoint Generator - http://navaid.com/GPX/" 
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
xmlns="http://www.topografix.com/GPX/1/1" 
xmlns:navaid="http://navaid.com/GPX/NAVAID/1/0" 
xsi:schemaLocation="http://www.topografix.com/GPX/1/1 http://www.topografix.com/GPX/1/1/gpx.xsd 
http://navaid.com/GPX/NAVAID/1/0 http://navaid.com/GPX/NAVAID/1/0"> 
<metadata> 
    <author> 
     <name>Paul Tomblin</name> 
     <email id="ptomblin" domain="xcski.com"/> 
     <link href="http://blog.xcski.com/"/> 
    </author> 
    <link href="http://navaid.com/GPX/"/> 
</metadata> 
EOF 

Answer 4

的問題是你必須在字符串中轉義引號。無論是使用反斜槓轉義引號或用QQ {}包圍你的打印字符串：

print MYFILE qq{<?xml version="1.0" encoding="UTF-8"?>\n}; 
--or-- 
print MYFILE "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"; 

Answer 5

總是，總是，總是檢查從open，例如返回的值，

open (MYFILE, '>>data.xml') 
    or die "$0: open: $!"; 

注意在錯誤信息的重要位：

1. 失敗的程序的名稱，$0
2. 什麼要怎樣做，open
3. 爲什麼會失敗，$!

沒有換行符將字符串的末尾傳遞給die，它將追加程序死亡的文件和行號。

Answer 6

始終打開警告和狹窄，所以你發現前面出了什麼差錯，並獲得更多的細節原因：

#!/usr/local/bin/perl 
use strict; 
use warnings; 

始終使用的open詞法-variabled，三個參數的形式（有一個big discussion why over here），並且總是檢查返回值（如果出現錯誤，它將返回一個錯誤，並將原因放在$!變量（see under $! at perldoc perlvar）中。另外，die將打印程序退出的行號，如果不'\n（更多在perldoc -f die）。

open my $file, '>>', 'data.xml' or die "Can't open file: $!"; 

，並使用\n左右雙引號，使其正確打印：建議

print $file '<?xml version="1.0" encoding="UTF-8"?>' . "\n"; 
print $file '<?xml version="1.0" encoding="UTF-16"?>' . "\n"; 
close $file; 

Answer 7

幾個附加分：

• 對於編寫複雜的結構化 文件，使用庫如 XML::Simple或many, many others available on CPAN之一。

• 如果你正在寫很多非常相似的文件，模板模塊可能會更合適。

• 採取以太的建議重新：open,strict和warnings。它可以節省您的時間調試。

• 如果您打算聲明某個文件具有特定的編碼（UTF-8或UTF-16），則該文件可能應該爲emit actual Unicode text。有更多的信息在perldoc -f open。

Answer 8

如果你想爲UTF-8的數據寫入一個文件（如你在你的XML聲明中說，打開用UTF-8編碼的文件：

open my($fh), '>:utf8', 'data.xml' or die "Could not open file: $!"; 

print $fh qq{<?xml version="1.0" encoding="UTF-8">\n};