data/scripts/update_bib.pl

   1 #! /usr/bin/env perl
   2
   3 open(IN, "<$ENV{HOME}/Documents/Papers/bib/HOOMD-doc.bib") or die("No input file");
   4 open(OUT, '>doc/user/HOOMD.bib');
   5
   6 print OUT "This file is automatically generated by update_bib.pl from a bibtex database managed by Joshua Anderson\n";
   7 print OUT "Please send him the doi of any reference you wish to add\n";
   8 print OUT "\n";
   9
  10 $waiting = 0;
  11 while (<IN>)
  12     {
  13     if (/^file/ || /^mendeley-tags/ || /^abstract/ || /^keywords/ || /^url/ || /^language/ || /^month/ || /^issn/ || /^doi/ || /^pmid/ || /^publisher/)
  14         {
  15         $waiting = 1;
  16         }
  17     if ($waiting)
  18         {
  19         if (/\}/)
  20             {
  21             $waiting = 0;
  22             next;
  23             }
  24         else
  25             {
  26             next;
  27             }
  28         }
  29
  30     s/\}\}/\}/;
  31     s/\{\{/\{/;
  32     print OUT;
  33     }
  34