examples/debian/versions/merge-one-debinfo

   1 #! /usr/bin/perl -w
   2 use strict;
   3 use MLDBM qw(DB_File Storable);
   4 use Fcntl;
   5
   6 $MLDBM::DumpMeth=q(portable);
   7
   8 my (%srcbin, %binsrc);
   9 tie %srcbin, 'MLDBM', '/org/bugs.debian.org/versions/indices/srcbin.idx',
  10              O_CREAT|O_RDWR, 0644
  11     or die "tie srcbin.idx: $!";
  12 tie %binsrc, 'MLDBM', '/org/bugs.debian.org/versions/indices/binsrc.idx',
  13              O_CREAT|O_RDWR, 0644
  14     or die "tie binsrc.idx: $!";
  15
  16 while (<>) {
  17     my ($binname, $binver, $binarch, $srcname, $srcver) = split;
  18     print STDERR "$binname/$binver/$binarch => $srcname/$srcver\n";
  19
  20     # see MLDBM(3pm)/BUGS
  21     my $tmp = $srcbin{$srcname};
  22     push @{$tmp->{$srcver}}, [$binname, $binver, $binarch];
  23     $srcbin{$srcname} = $tmp;
  24
  25     $tmp = $binsrc{$binname};
  26     $tmp->{$binver}{$binarch} = [$srcname, $srcver];
  27     $binsrc{$binname} = $tmp;
  28 }