blob: 317c6fe19ea5ed3c848e942bb2b93fe0f9605197 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/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;
|