在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> 

我需要通過部署，文件和重啓命令元素進行迭代。我讀了關於使用Perl和安裝的版本是5.8.8。但是，由於缺少庫，我無法在perl中使用TWIG和其他XML文件。我讀過其他的東西，比如xml_grep，xmllint等，但是這些並沒有安裝在我使用的機器上，我無法手動安裝這些東西，甚至因爲很多約束而請求它。

我已經嘗試使用XML :: Simple，例如http://interoperating.info/courses/perl4data/node/26，但仍然沒有用。

請告知如何爲此創建最簡單的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的源代碼版本並不難，並且安裝在其他位置。

所以我會建議正確答案在這裏涉及請求必要的元素做一個體面的工作。你不會指望一個木匠用錘子砸碎你的錘子，因爲他不會爲了購買一把螺絲刀而煩惱，現在你願意嗎？