Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
Hello gurus, Iam trying to parse following BibTex file (bibliography.bib):
I am using BibTeX-Parser for this which works as expected. Following code:@book{Lee2000a, abstract = {Abstract goes here}, author = {Lee, Wenke and Stolfo, Salvatore J}, title = {{Data mining approaches for intrusion detection}}, year = {2000} } @article{Forrest1996, abstract = {Abstract goes here}, author = {Forrest, Stephanie and Hofmeyr, Steven A. and Anil, Somayaji +}, title = {{Computer immunology}}, year = {1996} }
CURRENT output of Dumper (\%bibliography);#!/usr/bin/perl # http://search.cpan.org/~gerhard/BibTeX-Parser-0.62/lib/BibTeX/Parser +.pm use BibTeX::Parser; use IO::File; use Data::Dumper; use strict; use warnings; my $filename="bibliography.bib"; my (%bibliography, %article); my $i; my ($entry, @entries, $type, $key); my (my $hkey, my $hvalue); # open BibTeX my $fh = IO::File->new("$filename") or die "could not open $filename: +$!\n"; # create parser object ... my $parser = BibTeX::Parser->new($fh); # ... and iterate over entries while ($entry = $parser->next ) { if ($entry->parse_ok) { # return BibTeX elements like abstract, author, title ... @entries = $entry->fieldlist(); # create %article as a hash array e.g. year -> 1996; isbn -> 15811 +38709 etc. foreach (@entries) { $article{"$_"} = $entry->field("$_"); } # return article's key (Lee2000a, Forrest1996) $key = $entry->key; # append %article into %bibliography with approporiate key $bibliography{"$key"} = \%article; #Debug #print $entry->key, "\n"; #print Dumper (\%article); # removes all elements of %article (prepare for next iteration) %article = (); #Debug #print "================================\n"; } else { warn "Error parsing file: " . $entry->error; } } #Debug #print Dumper (\%bibliography);
EXPECTED output of Dumper (\%bibliography);$VAR1 = { 'Lee2000a' => {}, 'Forrest1996' => $VAR1->{'Lee2000a'} };
What I am doing Wrong ? Many thanks.$VAR1 = { 'Lee2000a' => { 'abstract' => 'Abstract goes here', 'author' => 'Lee, Wenke and Stolfo, Salvatore J' 'title' => 'Data mining approaches for intrusion detec +tion' 'year' => '2000' }, 'Forrest1996' => { 'abstract' => 'Abstract goes here', 'author' => 'Forrest, Stephanie and Hofmeyr, Steven A. + and Anil, Somayaji' 'title' => 'Computer immunology' 'year' => '1996' } };
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Dynamically parse BibTeX and create hash of hash
by Athanasius (Archbishop) on Dec 07, 2012 at 14:32 UTC | |
Re: Dynamically parse BibTeX and create hash of hash
by pvaldes (Chaplain) on Dec 07, 2012 at 15:40 UTC | |
by Anonymous Monk on Dec 07, 2012 at 17:47 UTC | |
by Anonymous Monk on Dec 07, 2012 at 22:03 UTC |
Back to
Seekers of Perl Wisdom