projects
/
star2016
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8805680
)
count ContributionType
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Wed, 16 Mar 2016 22:40:33 +0000
(23:40 +0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Wed, 16 Mar 2016 22:40:33 +0000
(23:40 +0100)
star2016-abstracts.pl
patch
|
blob
|
history
diff --git
a/star2016-abstracts.pl
b/star2016-abstracts.pl
index
bda55b1
..
2d872c3
100755
(executable)
--- a/
star2016-abstracts.pl
+++ b/
star2016-abstracts.pl
@@
-7,5
+7,19
@@
use Data::Dump qw(dump);
my $tpp = XML::TreePP->new();
my $tree = $tpp->parsefile( "abstracts.xml" );
-
print dump($tree)
;
+
my $abstracts = delete $tree->{AbstractBook}->{abstract}
;
+warn "# tree = ", dump($tree);
+
+my $stat;
+
+foreach my $abstract ( @$abstracts ) {
+ warn "# abstract = ", dump($abstract);
+
+ foreach $k (qw( ContributionType )) {
+ $stat->{$k}->{ $abstract->{$k} } ++;
+ }
+
+}
+
+warn "# stat = ",dump($stat);