5 while($line = <STDIN>) {
7 if($line =~ /^\s*@[\w\s]*{/) {
15 if($line =~ /^\s*year\s*=\s*/i) {
19 if($line =~ /^\s*category\s*=\s*/i) {
26 $count{$cat}{$year}++;
29 "core" => "Other publications about the SimGrid framework",
30 "extern" => "Papers that use SimGrid-generated results (not counting our owns)",
31 "intra" => "Our own papers that use SimGrid-generated results"
35 foreach $cat (keys %count) {
36 push @years, keys %{$count{$cat}};
39 @years = sort {$a <=> $b} @years;
40 $year_min = $years[0];
41 $year_max = $years[$#years];
44 print "<table border='1' cellspacing='3' cellpadding='3'>
46 foreach $year ($year_min..$year_max) {
47 print "<td>$year</td> ";
49 print "<td>Total</td>\n";
52 foreach $cat (keys %count) {
54 print "<tr><td>$pretty_print{$cat}</td>";
56 foreach $year ($year_min..$year_max) {
57 if(defined($count{$cat}{$year})) {
58 print "<td>$count{$cat}{$year}</td> ";
59 $sum+=$count{$cat}{$year};
64 print "<td>$sum</td>\n";
70 print "<tr><td>Total </td>";
73 foreach $year ($year_min..$year_max) {
75 foreach $cat (keys %count) {
76 if(defined($count{$cat}{$year})) {
77 $sum+=$count{$cat}{$year};
81 print "<td>$sum</td> ";
83 print "<td>$ssum</td> ";