☰

Perlを使用してXMLファイルをCSVに変換するには？

tag-icon • tag-icon perl
Perlを使用してXMLファイルをCSVに変換するには？

.asn1テーブルにロードするために（CDRデータ）をCSVに変換する方法についてのアドバイスを探しています。現在のアプローチでは、XSDを使用してGreenplumテーブルにロードするのではなく、Informatica B2Bパーサーを使用してASNファイルをXMLに解析します。

Perlがこれをより良い方法で行うことができたらと思います。ある日、私たちは非常に大きなファイルである約30,000個のASNファイルを受け取りました。

XMLをCSVに変換するには（OS Xでxmlstarletを使用してXMLをCSVに変換する方法について混乱していますか？）この方法が機能しているのかPerlにプラグインがあるのか​​わかりません。

ASNファイルはバイナリファイルで、2番目のステップはXMLをCSVに変換することです。

XMLの例：

<?xml version="1.0" encoding="windows-1252"?>
<RadiusCDR_Parent>
<RadiusCDR>
<accountingRequest>
<userName>1200099344</userName>
<nasIPAddress>0A490010</nasIPAddress>
<nasPort>0</nasPort>
<serviceType>2</serviceType>
<framedProtocol>1</framedProtocol>
<framedIPAddress>64702E70</framedIPAddress>
<vendorSpecificExt>
<cisco>
<subAttributeID>1</subAttributeID>
<vendorLength>26</vendorLength>
<data>connect-progress=Call Up</data>
</cisco>
<cisco>
<subAttributeID>1</subAttributeID>
<vendorLength>19</vendorLength>
<data>portbundle=enable</data>
</cisco>
<cisco>
<subAttributeID>250</subAttributeID>
<vendorLength>17</vendorLength>
<data>S10.73.0.17:785</data>
</cisco>
<cisco>
<subAttributeID>253</subAttributeID>
<vendorLength>11</vendorLength>
<data>I0;153521</data>
</cisco>
<cisco>
<subAttributeID>253</subAttributeID>
<vendorLength>11</vendorLength>
<data>O0;559080</data>
</cisco>
</vendorSpecificExt>
<callingStationID>503c.c433.b8df</callingStationID>
<nasIdentifier>INMUNVMBXXXXNB0001AG3WAG001.ril.com</nasIdentifier>
<acctStatusType>3</acctStatusType>
<acctDelayTime>0</acctDelayTime>
<acctInputOctets>0257B1</acctInputOctets>
<acctOutputOctets>0887E8</acctOutputOctets>
<acctSessionID>009B51EC</acctSessionID>
<acctAuthentic>1</acctAuthentic>
<acctSessionTime>2012</acctSessionTime>
<acctInputPackets>1187</acctInputPackets>
<acctOutputPackets>1130</acctOutputPackets>
<eventTimeStamp>140E0A0F 123B0E</eventTimeStamp>
<nasPortType>5</nasPortType>
<nasPortID>0/0/0/902</nasPortID>
</accountingRequest>
</RadiusCDR>
<RadiusCDR_Parent>

Cisco情報を除くすべての情報もCSV形式にしたいと思います。

ベストアンサー1

使用しないでください。XML::Simpleです。悪い考え。

ただし、デフォルトではXMLは階層データ構造であり、CSVはそうではありません。したがって、一般的に翻訳問題を解決することは不可能です。

しかし、標準的なレコード構造を考慮すると、これは難しくありません。

#!/usr/bin/env perl

use strict;
use warnings;
use XML::Twig;
use Text::CSV;
use Data::Dumper;

my $twig = XML::Twig->new->parse( \*DATA );

#read heading from first record.
my @headings =
    map { $_->tag } $twig->findnodes( '//accountingRequest', 0 )->children;

my $csv_out = Text::CSV->new( { binary => 1, eol => "\n" } );
$csv_out->print( \*STDOUT, \@headings );

foreach my $accountingRequest ( $twig->findnodes('//accountingRequest') ) {
    my @row = map { $accountingRequest->first_child_text($_) } @headings;
    $csv_out->print( \*STDOUT, \@row );
}

これにより、最上位の「タグ」を抽出し、一致する値を抽出してその値を印刷します。

しかし、述べたように、データは階層的であるため完璧ではありません。記録があり、ciscoそれをどのように処理するかを決定する必要があります。履歴をCSVに表示するにはどうすればよいですか？

おすすめ記事