Perl XML到CSV解析

我一直在试图弄清楚如何让一个XML数据源解析成一个CSV文件，这让我有点疯狂。我有一个数据源，我需要解析一个创建CSV。我还需要能够将节点ID包含在列中。以下是我有：Perl XML到CSV解析

  #!/usr/bin/perl 
      use warnings; 
     use strict; 
     use XML::XPath; 

     #Name of the CSV File 
     my $filename = "parse.csv"; 

     #Create the file. 
     open(INPUT,">$filename") or die "Cannot create file"; 

     #Collect the XML and set nodes 
     my($xp) = XML::XPath->new(join('', <DATA>)); 
     my(@records) = $xp->findnodes('/CATALOG/CD'); 
     my($firstTime) = 0; 

     #Loop through each record 
     foreach my $record (@records) { 
      my(@fields) = $xp->find('./child::*', $record)->get_nodelist(); 
      unless ($firstTime++) { 
      #Print Headers 
       print(join(',', map { $_->getName() } @fields), "\n"); 
      } 
      #Print Content 
       print(join(',', map { $_->string_value() } @fields), "\n"); 
     } 
     #Close the file. 
     close(INPUT); 


     __DATA__ 
     <FOOD> 
      <ITEM id='1'> 
       <Color>Brown</Color> 
       <Name>Steak</Name> 
      </ITEM> 
      <ITEM id='2'> 
       <Color>Blue</Color> 
       <Name>Blueberries</Name> 
      </ITEM> 
      <ITEM id='3'> 
       <Color>Red</Color> 
       <Name>Apple</Name> 
      </ITEM> 
     </FOOD>

它创建了一个CSV但其空&我想是因为在foreach循环中的打印线的。

任何帮助将不胜感激！

来源

2013-09-23 SBB

作为样式，不要将文件名硬编码到脚本中，如果可以避免的话。使它们成为可选参数，从'<>'（或者做等效）读取输入并将输出写入到'STDOUT'使得脚本更容易重用，组合和测试。 – reinierpost

您正在将标题和内容打印到标准输出而不是输出文件。您需要将文件句柄作为第一个参数传递给print而不是它与您要打印的内容之间的逗号。例如：print FILE join(',', ...), "\n";

我也建议不要使用INPUT作为您要输出的文件句柄 - 它使理解代码时有点混乱。

来源

2013-09-23 22:13:33 user2676699

鉴于XML架构的简易性，这更容易做AnyData

例如：

#!/usr/bin/perl 
# This script converts a XML file to CSV format. 

# Load the AnyData XML to CSV conversion modules 
use XML::Parser; 
use XML::Twig; 
use AnyData; 

my $input_xml = "test.xml"; 
my $output_csv = "test.csv"; 


$flags->{record_tag} = 'ITEM'; 
adConvert('XML', $input_xml, 'CSV', $output_csv, $flags);

请问你的数据结构（XML）转换成：

id,Color,Name 
1,Brown,Steak 
2,Blue,Blueberries 
3,Red,Apple

来源

2013-11-08 10:49:20

就你而言，你正在使用/ CATALOG/CD而不是你的数据。请使用类似

my(@records) = $xp->findnodes('/FOOD/ITEM'); 
.... 
... 
... 
print INPUT (join(',', map { $_->getName() } @fields), "\n");

来源

2015-11-23 09:43:30 Jaydeep

Perl XML到CSV解析

回答

相关问题