#!/usr/bin/env perl
# $Id: rm_noarch,v 1.1.1.1 2006/10/06 22:22:02 c4chris Exp $
use strict;
my %B;
local *IN;
open IN, "pkg_noarch.txt" or die "Couldn't open pkg_noarch.txt: $!";
while ( <IN> ) {
  chop;
  my @F = split;
  my $name = $F[4];
  $name =~ s/-[^-]+-[^-]+\.src\.rpm$//;
  $B{$name} = 1;
}
close IN;
while ( <> ) {
  my @F = split;
  my $name = $F[5];
  next if defined $B{$name};
  print;
}
exit 0;