--这里所有的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文件了,如果类型不同则在条件语句上进行判断了,这个东西,大家自己看情况而定,嘻嘻。。。
perl批处理xml文件
最新推荐文章于 2024-07-10 06:14:25 发布