XMLをCSVに変換

Question

さて、ここには非常に基本的な質問があります。 XMLは詳細仕様を含む複雑な言語です。ライブラリがなければ、これは難しいでしょう。 XMLは基本的に正しく解析する必要があります。

例えばXML::TwigPerlを使用すると、次のようになります。

use strict;
use warnings;

use XML::Twig;

my $twig = XML::Twig->new()->parsefile ( 'your_xml_file.xml' );

print "id_localisation;id_client;key\n";
foreach my $record ( $twig->root->children('record') ) {
    foreach my $data ( $record->children('data') ) {
        print join( ";",
            $record->first_child_text('id_localisation'),
            $data->first_child_text('id_client'),
            $data->first_child_text('key'),
            ),
            "\n";
    }
}

すでに利用可能であることがわかりますXML::Twig。これは非常に一般的な「基本インストール」です。だからまず確認してみてください。

これを行うための汚いハッキング方法がありますが、私は本物これはお勧めできません。私の言葉は本当に、本当に、壊れやすく、ひどいコードを生成するからです。

私はこれをより強い言葉で繰り返すことはできません。これを行う前に、以下を確認してください。https://stackoverflow.com/a/1732454/2566198

そして： https://stackoverflow.com/a/28913945/2566198

場合によっては、「ユーザー固有」のPerlモジュールをインストールできます。これは特に関連性があります。

そして、あなたのコードが意図的にXML仕様に違反していることを認識してください。これをテキストファイルとして扱います。これはあらゆる種類の悪いことです。特にこれを破るXMLに対して完全に有効な作業を行うことができるので、さらにそうです。

ただし、次のことを行う必要がある場合:

use strict;
use warnings;

open ( my $input_xml, "<", 'your_xml_file.xml' ) or die $!;
my $loca = "";
print "id_localisation;id_client;key\n";

for (<$input>) {
    my ($value) = (m/>(\w+)</);
    if (m/id_localisation/) { $loca = $value; }
    if (m/id_client/)       { print "$loca;$value;"; }
    if (m/key/)             { print "$value\n"; }
}
close($input);

以下を印刷します。

id_localisation;id_client;key
8PJ;50C;C
8PJ;25C;D1
ESP31;70D;D2
ESP31;10D;D3

どのような生産機能にもこれを使用するには、まずインストールを許可していない人を刺し、必要なライブラリをインストールするようにしてください。これは難しい仕事のように聞こえますが、私を信じてください。上流のデータ型は（通常は有効な方法で）変更されていますが、下流のデータ型が変更され、ある日不明に破損する問題を解決しようとするよりも悪いことはありません。標準を実装します。

Answer 1