As I Please

participant の xmlファイルから選手コード、名前他のデータを抜き出す。選手名一覧をcsv化するときに使ったもの。

#!/usr/bin/perl
#
#  make csv from ODF participant xml
#
#
#
#
use strict;
use XML::LibXML;
use Data::Dumper;
my $parser = XML::LibXML->new;
my $dom = $parser->parse_file("./sw_partic.xml");
my @participants = $dom->findnodes('OdfBody/Competition/Participant');
foreach my $part (@participants){
#    print STDERR $part,"\n";
    my $code  = $part->findvalue('@Code');
    my $give  = $part->findvalue('@GivenName');
    my $first = $part->findvalue('@FamilyName');
    my $noc   = $part->findvalue('@Organisation');
    print STDOUT $code,",",$give,",",$first,",",$noc,,"\n";
}