dotfiles

My personal dotfiles
git clone git://pcardensab.com/dotfiles
Log | Files | Refs | Submodules | README

biblist-url (591B)

      1 #!/usr/bin/env perl
      2 use strict;
      3 use warnings;
      4 use Text::BibTeX;
      5 
      6 my $bib = $ENV{BIB} or die "BIB is not set\n";
      7 -f $bib or die "No BIB=$bib\n";
      8 
      9 my $bibfile = Text::BibTeX::File->new($bib);
     10 
     11 while (my $entry = Text::BibTeX::Entry->new($bibfile)) {
     12     my $url =
     13         $entry->exists('doi') ? $entry->get('doi') :
     14         $entry->exists('url') ? $entry->get('url') :
     15         undef;
     16 
     17     next unless defined $url;
     18 
     19     my @details = map { $entry->get($_) }
     20         grep { $entry->exists($_) }
     21         qw(alias title author journal year);
     22 
     23     print "$url | ", join(" | ", @details), "\n";
     24 }