Perl - 使用递归将嵌套的 XML 格式转换为 Java

Question

我需要使用 Perl 将如下嵌套的 XML 格式转换为 Java：

<invoke name="name1" operation="operation1" displayName="Invoke1" id="6">
  <input>
    <parameter name="Value" variable="Value"/>
    <parameter name="ID" variable="ID"/>
  </input>
  <output>
    <parameter name="Return" variable="Return"/>
  </output>
</invoke>
<switch name="..." displayName="..." id="13">
    <case id="14">
        <condition expressionLanguage="..."><![CDATA[(c1)]]></condition>
    </case>
    <otherwise id="106">
        <switch name="..." displayName="..." id="15">
            <case id="16">
                <condition expressionLanguage="..."><![CDATA[(c2)]]></condition>
                <switch name="..." displayName="..." id="19">
                    <case id="20">
                        <condition expressionLanguage="..."><![CDATA[(c3) >0)]]></condition>
                    </case>
                    <otherwise id="106"> </otherwise>
                </switch>
            </case>
            <otherwise id="107">
                <switch name="..." displayName="..." id="33">
                    <case id="64">
                        <condition expressionLanguage="..."><![CDATA[(c4)]]></condition>
                    </case>
                    <otherwise id="108"> </otherwise>
                </switch>
            </otherwise>
        </switch>
    </otherwise>
</switch>

预期输出如下：

<invoke name="name1" operation="operation1" displayName="Invoke1" id="6">
  <input>
    <parameter name="Value" variable="Value"/>
    <parameter name="ID" variable="ID"/>
  </input>
  <output>
    <parameter name="Return" variable="Return"/>
  </output>
</invoke>
if(c1) {
}else{
    if(c2) {
        if(c3) {
        }else{
        }
    }else{
        if(c4) {
        }else{
        }
    }
}

我认为可以通过 4 个步骤来实现：

1. 读取 XML 文件 -> 获取第一个 switch1 块 -> 转换为 if--else
2. 获取 case1 块，否则获取 switch1 块的 1 块
3. 从第 1 步为 case1 块和其他 1 块实现递归
4. 读取 XML 文件的其余部分并从 s1 执行相同操作

在这种情况下，我实际上很难进行递归。一些 Perl 专家可以在这里帮助我吗？

Answer 1

这是一个使用XML::Parser 的解决方案。我使用了Style => 'Subs'，因为我感兴趣的唯一事件是case 和otherwise 元素的开始和结束，以及非空白字符数据

数组@indent 每次我们下降到一个块时都会有另一个元素被推送到它上面，当块结束时最后一个元素被弹出。数组中最后一个元素的值是我们目前在这个级别看到的case 元素的数量。这允许我们为第一次之后的所有事件输出else if

我已将整个文本括在括号中，因为您的第三个 condition 元素包含 (c3) >0，否则没有意义

我相信它已经足够清晰，您可以进行任何可能需要的调整

use strict;
use warnings 'all';

use XML::Parser;

my $parser = XML::Parser->new(
    Style    => 'Subs',
    Handlers => { Char  => \&handle_char },
);

my @indent = (0);

$parser->parse(*DATA);

sub indent {
    '    ' x $#indent;
}

sub case {

    print indent;
    print "else " if $indent[-1] > 0;
    print "if ( ";

    push @indent, 0;
}

sub case_ {

    pop @indent;

    ++$indent[-1];

    print indent, "}\n";
}

sub otherwise {

    print indent, "else {\n";

    push @indent, 0;
}

sub otherwise_ {

    pop @indent;
    print indent, "}\n";
}

sub handle_char {
    my ($expat, $string) = @_;

    print $string, " ) {\n" if $string =~ /\S/;
}


__DATA__
<root>
    <switch name="..." displayName="..." id="13">
        <case id="14">
          <condition expressionLanguage="..."><![CDATA[(c1)]]></condition>
        </case>
        <otherwise id="106">
          <switch name="..." displayName="..." id="15">
            <case id="16">
              <condition expressionLanguage="..."><![CDATA[(c2)]]></condition>
                <switch name="..." displayName="..." id="19">
                  <case id="20">
                    <condition expressionLanguage="..."><![CDATA[(c3) >0)]]></condition>
                  </case>
                  <otherwise id="106">
                  </otherwise>
                </switch>
            </case>
            <otherwise id="107">
                <switch name="..." displayName="..." id="33">
                  <case id="64">
                    <condition expressionLanguage="..."><![CDATA[(c4)]]></condition>
                  </case>
                  <otherwise id="108">
                  </otherwise>
                </switch>
            </otherwise>
          </switch>
        </otherwise>
      </switch>
</root>

输出

if ( (c1) ) {
}
else {
    if ( (c2) ) {
        if ( (c3) >0) ) {
        }
        else {
        }
    }
    else {
        if ( (c4) ) {
        }
        else {
        }
    }
}