AIX 中最简单的嵌套 XML 解析

Question

我正在尝试在 Unix 中创建一个脚本来解析嵌套的 XML。示例如下：

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<deployments>
    <appName>apptest</appName>
    <envVariable>app</envVariable>
    <fileSourceFolder>/sourceTest</fileSourceFolder>
    <fileBackupFolder>/testbackup</fileBackupFolder>
    <requireRestart>false</requireRestart>
    <restartCommandPath>bin</restartCommandPath>
    <deployment-files>
        <deployment-file>
            <deploymentFolder>deployment-folder</deploymentFolder>
            <fileName>test-file</fileName>
        </deployment-file>
    </deployment-files>
    <restart-commands>
        <restart-command>
            <commandName>./appstop</commandName>
        </restart-command>
        <restart-command>
            <commandName>./appstart</commandName>
        </restart-command>
    </restart-commands>
</deployments>

我需要遍历 deployment-files 和 restart-command 元素。我阅读了有关使用 Perl 的信息，安装的版本是 5.8.8。但是由于缺少库，我不能在 perl 中使用 TWIG 和其他 XML 内容。我也读过其他东西，比如 xml_grep、xmllint 等，但这些东西没有安装在我使用的机器上，由于很多限制，我无法手动安装它们，甚至无法请求它。

我已经尝试使用基于 http://interoperating.info/courses/perl4data/node/26 的示例的 XML::Simple，但仍然不行。

请告知如何为此创建最简单的 perl 或 shell 脚本，并提供参考。我还是 shell 脚本的新手，我昨天才开始探索 perl，所以我将感谢您的所有帮助。谢谢。

Answer 1

看，我知道你说过“我无法安装东西”——但你遇到的问题是你试图在没有解析器的情况下解析 XML，而你使用的是 7 年前的 perl 版本是生命的尽头。 Perl 5.8.8 is end of life, and released in 2008。

无论您多么努力尝试，这都不是一个好的解决方案的途径 - 使用解析器，这变得非常简单：

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

my $twig = XML::Twig -> new -> parse ( \*DATA );
foreach my $deployment_files ( $twig -> get_xpath ( '//deployment-file' ) ) {
   print $deployment_files -> first_child_text('deploymentFolder'), " => ";
   print $deployment_files -> first_child_text('fileName');
   print "\n";
}

foreach my $restart_command ( $twig -> get_xpath ( '//restart-command/commandName' ) ) {
   print $restart_command -> text,"\n";
}

__DATA__
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<deployments>
    <appName>apptest</appName>
    <envVariable>app</envVariable>
    <fileSourceFolder>/sourceTest</fileSourceFolder>
    <fileBackupFolder>/testbackup</fileBackupFolder>
    <requireRestart>false</requireRestart>
    <restartCommandPath>bin</restartCommandPath>
    <deployment-files>
        <deployment-file>
            <deploymentFolder>deployment-folder</deploymentFolder>
            <fileName>test-file</fileName>
        </deployment-file>
    </deployment-files>
    <restart-commands>
        <restart-command>
            <commandName>./appstop</commandName>
        </restart-command>
        <restart-command>
            <commandName>./appstart</commandName>
        </restart-command>
    </restart-commands>
</deployments>

如果没有解析器，您首先...必须编写一个解析器。您可以这样做 - 规范定义明确。但实际上，如果有几个很好的 XML 解析器已经过测试并且可以正常工作，那是没有意义的。但即使你这样做了，你也会遇到一个 7 岁的口译员。做一个 perl 的源代码构建并安装在另一个位置真的不难。

因此，我建议正确 的答案涉及请求必要的元素来完成体面的工作。你不会指望木匠会围着你的锤子用锤子砸螺丝，因为他不会费心去弄螺丝刀，你会吗？