Perl：CSVファイルをxmlに変換する

Question

私はCSVファイルを解析してXMLに変換しようとしています。 .csvファイルはカンマで区切られたエントリのリストで構成されています。したがって、2つのサンプルエントリは次のようになります。

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; 

は、我々はおそらく、もう少し何かを思い付くことができ洗練された！