projects
/
star2016
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove some fields
[star2016]
/
star2016-abstracts.pl
diff --git
a/star2016-abstracts.pl
b/star2016-abstracts.pl
index
0c5b827
..
25fa196
100755
(executable)
--- a/
star2016-abstracts.pl
+++ b/
star2016-abstracts.pl
@@
-59,6
+59,8
@@
foreach my $abstract ( @$abstracts ) {
$id2nr->{ $id } = $nr++;
$id2nr->{ $id } = $nr++;
+warn "$nr";
+
my $t = $doc->appendParagraph(text => $abstract->{Title}->[0], style => 'Heading 1');
$doc->setPageBreak( $t, position => 'before', style => 'Heading 1');
my $t = $doc->appendParagraph(text => $abstract->{Title}->[0], style => 'Heading 1');
$doc->setPageBreak( $t, position => 'before', style => 'Heading 1');
@@
-66,15
+68,24
@@
foreach my $abstract ( @$abstracts ) {
$doc->appendParagraph(text => join(' ',
map { $a->{$_}->[0] } qw( FirstName FamilyName Email Affiliation )
), style => 'Heading 2');
$doc->appendParagraph(text => join(' ',
map { $a->{$_}->[0] } qw( FirstName FamilyName Email Affiliation )
), style => 'Heading 2');
+ push @{ $stat->{_Affiliation}->{ $a->{Affiliation}->[0] } }, $id;
}
$doc->appendParagraph(text => $abstract->{Content}->[0], style => 'Abstract');
}
$doc->appendParagraph(text => $abstract->{Content}->[0], style => 'Abstract');
- $doc->appendParagraph(text => "Theme: " . $f->{2}->{'content'}, style => 'Theme');
+ $doc->appendParagraph(text => "\nTheme: " . $f->{2}->{'content'}, style => 'Theme');
+
+ $doc->appendParagraph(text => "\nID: " . $abstract->{Id}->[0], style => 'Abstract');
}
warn "# stat = ",dump($stat);
$doc->save;
}
warn "# stat = ",dump($stat);
$doc->save;
+
+open(my $fh, '>', 'affiliation.csv');
+foreach my $a ( sort keys %{ $stat->{_Affiliation} } ) {
+ print $fh '"',$a,'","',dump( $stat->{_Affiliation}->{$a} ), '"', "\n";
+}
+