Evergreen/src/extras/import/libfixup.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 my $new = shift;
   6 my $old = shift;
   7
   8 open N, $new;
   9 open O, $old;
  10
  11 my %oldlibs;
  12 while (<O>) {
  13         chomp;
  14         my ($sname, $lib, $sys) = split /\t/;
  15         my ($sys_prefix) = split /-/;
  16
  17         $oldlibs{$sys_prefix} = $sys;
  18 }
  19
  20 while (<N>) {
  21         chomp;
  22         my ($sname,$lib) = split /\|/;
  23         my ($sys_prefix) = split /-/, $sname;
  24         $lib =~ s/^[^-]+-(.+)/$1/o;
  25         print "$sname\t$lib\t$oldlibs{$sys_prefix}\n";
  26 }