antonn has asked for the wisdom of the Perl Monks concerning the following question:
file2:cat dogwhisperer umbrella mother sun
And the output should be:dog sun moon umbrella rain
I'm trying to read the whole first file and then loop reading lines from the other file doing grep, but I'm failing with this... Edit: I think now it kinda works, I was trying with $_ inside grep but it doesn't seem to work.cat dogwhisperer mother
open(RANDOM,"<",$frandom) or die("could not open first file!"); my @r_contents = <RANDOM>; close(RANDOM); open(FILTER,"<",$ffilter) or die("could not open the second file!"); while(<FILTER>) { chomp; my $line = $_; @r_contents = grep(!/^$line$/,@r_contents); } close(FILTER); print @r_contents;
|
|---|