git.rot13.org Git - star2016/blob - star2016-abstracts.pl

   1 #!/usr/bin/perl
   2 use autodie;
   3
   4 use XML::TreePP;
   5 use Data::Dump qw(dump);
   6
   7 my $tpp = XML::TreePP->new();
   8 my $tree = $tpp->parsefile( "abstracts.xml" );
   9
  10 my $abstracts = delete $tree->{AbstractBook}->{abstract};
  11
  12 warn "# tree = ", dump($tree);
  13
  14 my $stat;
  15
  16 foreach my $abstract ( @$abstracts ) {
  17         warn "# abstract = ", dump($abstract);
  18
  19         foreach $k (qw( ContributionType )) {
  20                 $stat->{$k}->{ $abstract->{$k} } ++;
  21         }
  22
  23 }
  24
  25 warn "# stat = ",dump($stat);