dotfiles

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

biblist-key (482B)

      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 $key = $entry->key;
     13     next unless defined $key;
     14 
     15     my @details = map { $entry->get($_) }
     16         grep { $entry->exists($_) }
     17         qw(alias title author journal year);
     18 
     19     print "$key | ", join(" | ", @details), "\n";
     20 }