rebuild-scripts/check_rebuild2


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#!/usr/bin/env perl
# $Id: check_rebuild2,v 1.1.1.1 2006/10/06 22:22:02 c4chris Exp $
use strict;
my %B;
my $cur = <>;
while ( $cur ) {
  my @F = split /\s+/, $cur;
  last if $F[1] eq "Sep" and $F[2] == 26;
  $B{$F[5]} = 1;
  $cur = <>;
}
while ( $cur ) {
  my @F = split /\s+/, $cur;
  last if $F[1] eq "Sep" and $F[2] == 17;
  unless (defined $B{$F[5]}) {
    print $cur;
  }
  $cur = <>;
}
exit 0;