Re: Dynamically parse BibTeX and create hash of hash

[pvaldes]

(mmmh... I wonder why are you using this form)

my (my $hkey, my $hvalue); # my (my ???

[Anonymous Monk]

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";
   } 
}

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'
                        },
};

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

[Anonymous Monk]

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";
   }
}

Alternatively, $Data::Dumper::Sortkeys = 1;