#!/bin/perl
open(IN,"$ARGV[1]")||die("Can't open file:$ARGV[1]\n");
while(my $l=<IN>) { if($l=~/$ARGV[0]/) { print $l;}}
close(IN);

----------------------------------
 
#!/usr/local/bin/perl

sub usage { return <<EOL;
usage: grepvf file1 file2
        extract list from file2 except list of file1
EOL
}
if($#ARGV<1) { print &usage(); exit 1;}

my %list1=();
open(F1,"$ARGV[0]")||die("Can't open $ARGV[0]\n");
open(F2,"$ARGV[1]")||die("Can't open $ARGV[1]\n");

while(my $l=<F1>) { %list1=(%list1,$l,1);}
close(F1);

while(my $l=<F2>) {
        if($list1{$l}) {}
        else { printf("$l");}
}