Pues en Perl hay varias formas de hacerlo... Se podría hacer así:
* Leer las direcciones de correo del fichero de texto y meterlas en un hash
* Hacer un bucle por el fichero csv y pintar la línea si la dirección de correo no está en el hash.
Vamos, es tan corto que te lo pongo aquí:
Código:
#!/usr/bin/perl
# Lectura del fichero de texto, las direcciones de correo
%emails = map { chomp $_; $_ => 1 } do{ open(TXT,"<fichero.txt"); <TXT> };
# Abrimos el csv y lo leemos línea a línea
open(CSV,"<fichero.csv");
while ( <CSV> ) {
($email) = split(/,/,$_,2); # email del csv
print if not exists $emails{ $email }; # pintar si no le tenemos
}
close CSV;