Lines Matching refs:old
17 my %old = ();
35 $old{$bib}{a2} = $a2;
36 $old{$bib}{bib} = $bib;
37 $old{$bib}{term} = $term;
38 $old{$bib}{name} = $name;
67 foreach my $bib (sort(keys(%old))) {
69 print "In old but not new: $old{$bib}{a2}\t$old{$bib}{bib}\t$old{$bib}{term}\t$old{$bib}{name}\n";
78 next if (defined $old{$bib});
79 print "In new but not old: $new{$bib}{a2}\t$new{$bib}{bib}\t$new{$bib}{term}\t$new{$bib}{name}\n";
87 foreach my $bib (sort(keys(%old))) {
89 next if ($old{$bib}{a2} eq $new{$bib}{a2} &&
90 $old{$bib}{bib} eq $new{$bib}{bib} &&
91 $old{$bib}{term} eq $new{$bib}{term} &&
92 $old{$bib}{name} eq $new{$bib}{name});
93 print "In old: $old{$bib}{a2}\t$old{$bib}{bib}\t$old{$bib}{term}\t$old{$bib}{name}\n";