As I Please

MTのいんすとーるの練習と、その他びぼうろく・・・

check_file.pl

某XML文書が沢山有るディレクトリから、プロパティを抜き出し一覧を作成。dateがlondon時間になっているので、その変換も考慮。

#!/usr/bin/perl
#
#  check_file.pl
#
#    get files and doccode output.
#
#
use strict;
use XML::LibXML;
use Data::Dumper;
use DateTime;
my $parser = XML::LibXML->new;
opendir(DIR, "./");
foreach(readdir(DIR)){
    next if /^\.{1,2}$/;
#    my $dom = $parser->parse_file("./sw_partic.xml");
    my $dom = $parser->parse_file($_);
    my $utime = substr($_,0,10);
    print $_,"\t";
    print DateTime->from_epoch(epoch=> $utime,time_zone => "Europe/London"),"\t";
    print substr( $dom->findvalue('/OdfBody/@DocumentCode'),0,2),"\t";
    print $dom->findvalue('/OdfBody/@DocumentCode'),"_";
    print $dom->findvalue('/OdfBody/@Serial'),"_";
    print $dom->findvalue('/OdfBody/@Time'),"_";
    print $dom->findvalue('/OdfBody/@Date'),"_";
    print $dom->findvalue('/OdfBody/@FeedFlag'),"_";
    print $dom->findvalue('/OdfBody/@LogicalDate'),"_";
    print $dom->findvalue('/OdfBody/@DocumentType'),"_";
    print $dom->findvalue('/OdfBody/@Version');
    print "\n";
}
close(DIR);

コメントする