Perl：將csv文件轉換爲xml

Question

我想解析一個csv文件並將其轉換爲XML。 .csv文件由用逗號分隔的條目列表組成。因此，兩個示例條目如下所示：

AP,AB,A123,B123,,, 
MA,NA,M123,TEXT,TEXT,TEXT_VALUE 

某些字段在文件中是空白的而文件沒有標題行。 任何建議如何去與此。還沒有想出如何去與此。 謝謝。

Answer 1

print "<myXML>\n"; 
while (<>) { 
    print "<aRow>$_</aRow>\n"; 
} 
print "</myXML>\n"; 

或者，使用XML ::的libxml，這樣的事情：

#!/usr/bin/perl 

use strict; 
use warnings; 

use XML::LibXML; 

my $doc = XML::LibXML::Document->createDocument; 

my $root = $doc->createElement('myXML'); 
$doc->setDocumentElement($root); 
$root->appendChild($doc->createTextNode("\n")); 

while (<>) { 
    chomp; 
    my $row = $doc->createElement('aRow'); 
    $root->appendChild($row); 
    $row->appendChild($doc->createTextNode($_)); 
    $root->appendChild($doc->createTextNode("\n")); 
} 

print $doc->toString; 

當然，如果你告訴我們，輸出應該是什麼樣子，我們也許可以想出的東西多一點複雜！