Re^2: Dynamically parse BibTeX and create hash of hash

my(my ??) was just a typo, thank you both you helped a lot. Can you please also suggest how can I firstly sort this structure according "outer - %bibliography" hash keys (Forrest1996, Lee2000a) and then according "inner/nested - %article" hash keys (author, abstract, title, year e.g.) I know that if I am printing hash it first prints key and then value and the order cannot be guaranteed, therfore my idea was to iterate over hashes, bud did not work as expected. Code I have so far

for $i (sort keys(%bibliography)){
  print "$i", "\n";
  #print "$i ", Dumper ($bibliography{"$i"});
  
   for $j (sort keys ($i)){
     print "$j\n";
   } 
}
[download]

Desired output (during iteration)

$VAR1 = {
          'Forrest1996' => {
                             'abstract' => 'Abstract goes here',
                             'author' => 'Forrest, Stephanie and Hofme
+yr, Steven A. and Anil, Somayaji',
                             'title' => '{Computer immunology}',
                             'year' => '1996'
                           },
          'Lee2000a' => {
                          'abstract' => 'Abstract goes here',
                          'author' => 'Lee, Wenke and Stolfo, Salvator
+e J',
                          'title' => '{Data mining approaches for intr
+usion detection}',
                          'year' => '2000'
                        },
};
[download]

Or is there any better way (structure) to strong this ? Thank you

Comment on Re^2: Dynamically parse BibTeX and create hash of hash Select or Download Code

Replies are listed 'Best First'.
Re^3: Dynamically parse BibTeX and create hash of hash by Anonymous Monk on Dec 07, 2012 at 22:03 UTC
Something like this? (untested) `for my $bibkey (sort keys %bibliography) { my $entry = $bibliography{$bibkey}; print "$bibkey:\n"; for my $key (sort keys %$entry) { print "\t$key => ", $entry->{$key}, "\n"; } }` [download] Alternatively, `$Data::Dumper::Sortkeys = 1;`	[reply] [d/l] [select]