perl批处理xml文件

  --这里所有的perl技术问题都是我平常处理数据的时候要用到的，可能不是很强的程序，但是希望能和热爱perl的同志，一起分享...
有很多时候，我们会遇到相同类型xml文件，这个时候需要用到批处理，比如要将xml文件里面的歌曲名和歌手名，还有其他一些信息取出来。下面是一个程序例子：
（可以先用一个软件ABC Amber XML Converter来看看xml文件的层次问题。看到的内容如下：
 
  #!/usr/bin/perl
use File::Find;
use XML::Simple;
use Data::Dumper;
$xml = new XML::Simple;
my $count:=1;
sub print_path
{
 my $file = $_;
 if ( $file =~ //.xml$/ )
 {
  $lpath = $File::Find::name;
  push( @lpath, $lpath );

 }
}
find( /&print_path, "d:/test/" ); #找到d盘下面test目录里面的所有xml文件，包括子目录的
foreach my $path (@lpath)  #循环读取文件名
{
 my $filename = $path;
$data = $xml->XMLin("$filename");
Dumper($data);
open IN,">>d:/1_cooking1.txt";  将数据全部读入1_cooking1.txt
      foreach my $col  (sort keys %{$data->{Productions}->{Production}}) #以数组的形式进行读取
  {
if ($data->{Entities}->{Entity}->{$col}->{subtype} eq artist)
   { print  IN  $data->{Productions}->{Production}->{$col}->{Title}->{value}."|".
  $data->{Entities}->{Entity}->{$col}->{Name}->{value}."|".
  $data->{Productions}->{Production}->{$col}->{AuthoritativeID}."|"."$filename"."/n"  }

  }  #将歌曲和歌手还有ID用 | 合并

$count++;


 }

 close IN;
 这样我们就可以轻松的批处理所以相同类型的 xml文件了，如果类型不同则在条件语句上进行判断了，这个东西，大家自己看情况而定，嘻嘻。。。