用Perl

Question

解析XML文件，我想按以下從XML文件中提取值：

<?xml version="1.0" encoding = "UTF-8" ?> 
    <!-- SAP Data Services generated XML --> 
    <!-- 2017-05-26.22:12:03(409,091)[1] --> 

<Root xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> 
<CreatedAt>2017-05-26T22:12:11</CreatedAt> 
<CreateBy>BJOB_ODS_WF5MD_WEBSITE_FILES_5MIN_DATA</CreateBy> 
<StartDate>2017-05-21T00:00:00</StartDate> 
    <DataSet Series = "5_Minute" ><Data><Value>10875.60</Value> 
    </Data> 
.... 
<DataSet Series = "Actual" ><Data><Value>11150.00</Value> 
    </Data> 
<Data><Value>10700.00</Value> 
</Data> 
<Data><Value>10450.00</Value> 
</Data> 
    ... 
</Data> 
</DataSet> 
</Root> 

盼望以下輸出爲CSV，但沒有得到愛與下面的腳本：

11150.00

10700.00

10450.00

****SCRIPT 
use warnings; 
use strict; 
use XML::Twig; 
#<DataSet Series = "Actual" ><Data><Value>11112.60</Value 

my $file = '/var/data/Actual.xml' ||die $!; 

my $t=XML::Twig->new(); 
$t->parsefile($file); 

# my @sets = $t->findnodes('//DataSet[@seriesName= "Actual" ]/set'); 
# I CHANGED THE ABOVE AND MODIFIED AS SHOWN BELOW 

my @sets = $t->findnodes('//DataSet[@Series= "Actual" ]/Value');  
if (@sets) { 
    my $outfile = '/var/csv/actual.csv'; 
    open my $out, ">", $outfile or die "Could not open $outfile: $!"; 
    print { $out } $_->att('Value')."\n" for @sets; 
} 

任何幫助將不勝感激。

Answer 1

這裏有一些誤解。首先，你的XML是無效的。我知道這僅僅是一個例子，但給我們一個有效的（如果是精簡的）例子還是不錯的。並且從第一個元素中省略開頭的<，這讓我覺得你並沒有在相當精準的水平上看待這個！

然後，XPath表達式與您正在解析的XML關係很小。正如他在評論中提到的simbabque，您指的是那些不會出現在您的XML中的元素，所以沒有任何內容匹配並不奇怪。

• 該seriesName屬性被稱爲Series。
• 沒有set元素。你需要Data/Value。

這似乎給你想要的東西（這是非常接近simbabque的建議，但他錯過了seriesName問題）。

my @sets = $t->findnodes('//DataSet[@Series="Actual"]/Data/Value'); 

程序員需要處理精度和準確性。也許你需要處理一點:-)

更新：這是我正在使用的測試XML。它基於你的XML，但我已經修復了一些明顯的錯誤。

<Root xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> 
<CreatedAt>2017-05-26T22:12:11</CreatedAt> 
<CreateBy>BJOB_ODS_WF5MD_WEBSITE_FILES_5MIN_DATA</CreateBy> 
<StartDate>2017-05-21T00:00:00</StartDate> 
<DataSet Series = "5_Minute" > 
    <Data><Value>10875.60</Value></Data> 
</DataSet> 
<DataSet Series = "Actual" > 
    <Data><Value>11150.00</Value></Data> 
    <Data><Value>10700.00</Value></Data> 
    <Data><Value>10450.00</Value></Data> 
</DataSet> 
</Root> 

這裏是我測試過的代碼。我簡化了你的代碼，將文件名作爲參數並將輸出寫入STDOUT（我不明白爲什麼這麼多人會爲這麼多人拼寫文件名）。

#!/usr/bin/perl 

use warnings; 
use strict; 
use XML::Twig; 

my $file = shift or die "No file given\n"; 

my $t=XML::Twig->new(); 
$t->parsefile($file); 

my @sets = $t->findnodes('//DataSet[@Series="Actual"]/Data/Value'); 

if (@sets) { 
    print $_->text, "\n" for @sets; 
} 

請注意，我做了我不小心從我原來的職位省略另一個變化 - 「價值」不是一個屬性，我用$_->text而不是你的$_->att('Value')的。