utils/trimusbmap


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

#!/usr/bin/perl

foreach $n (@ARGV) {
    $n =~ s/\.ko$//;
    $mods{"$n"} = $n;
}


while (<STDIN>) {
    chop;
    $line = $_;
    @a = split;
    if ($mods{$a[0]}) {
	print $line."\n";
    }
}