请教方家:计算xml文件中某元素的总和及平均值

biomasm

计算此xml文件中price元素的总和及平均值.
我见过其它语言的sax版本,如何用perl达到同样效果?
请方家赐教!

<?xml version="1.0"?>;
<!DOCTYPE -------------------------->;
<DataSet>;
<Data1>;
  <book>;book1</book>;
  <price>;55</price>;
</Data1>;
<Data2>;
  <book>;book2</book>;
  <price>;66</price>;
</Data2>;
<Data3>;
  <book>;book3</book>;
  <price>;77</price>;
</Data3>;
</DataSet>;

寂寞烈火

1. 
   
2. /home/lee#cat ex.pl
   
3. #!perl -w
   
4. use strict;
   
5. open FH,"<data.txt"or die ("Open error!");
   
6. my @array;
   
7. my $sum=0;
   
8. while(<FH>;){
   
9.         if(/price/){
   
10.         $_=~s/<price>;|<\/price>;//g;
    
11.         push @array,$_;
    
12.         }
    
13. }
    
14. foreach my $value(@array){
    
15.         $sum+=$value;
    
16. }
    
17. print sprintf "%s%.2f\n","sum=",$sum;
    
18. print sprintf "%s%.2f\n","avg=",$sum/($#array+1);
    
19. close FH;
    

复制代码

result:

/home/lee#perl ex.pl
sum=198.00
avg=66.00

PS:初学perl,请大家赐教
如果用awk的话一句就解决了

1. 
   
2. awk -F'[<|>;]' '/price/{n++;sum+=$3}END{printf "%s%.2f\n%s%.2f\n","sum=",sum,"avg=",sum/n}' data.txt

复制代码

biomasm

呵呵,cool!我的本意是用perl的xml module实现,寂寞烈火大侠的方法也可以解决我的问题,醍醐灌顶啊! 多谢! 不过xml还要继续学,perl更是不学不行啊!awk看上去也很酷啊,but I only have one life啊!  

apile

while(<FF>{
   if(/<price>;(.*?)</price>;/){
      $sum+= $1;
      $num++;
   }
}

print "sum = $sum\n $average = ".$sum/$num."\n";

寂寞烈火

原帖由 "apile" 发表：
while(<FF>{
   if(/<price>;(.*?)</price>;/){
      $sum+= $1;
      $num++;
   }
}

print "sum = $sum\n $average = ".$sum/$num."\n";

  向您学习!    

biomasm

while(<FF>{
  if(/<price>;(.*?)</price>;/){
     $sum+= $1;
     $num++;
  }
}
print "sum = $sum\n $average = ".$sum/$num."\n";

apile大侠出手不凡啊,不过if(/<price>;(.*?)</price>;/)应为
if(/<price>;(.*?)<\/price>;/)啊,漏了一"\"足以让菜鸟思不得解啊,
现已顺利消化,受益匪浅,佩服!