my @dis_dic;
open(my $in1, "<", "$dis_verbs")
or die "error reading $dis_verbs. $!";
chomp(@dis_dic = <$in1>);
close($in1);
Besides needing grep or List::Util qw(any) to test index for an array of substrings, I am confused by the logic/specification of:
elsif ( index($f3_line, @apr_dic && @dis_dic) != -1 ) {
I am not sure whether the intent is to test for both approved and discarded verbs or either one. There is no point testing for the 'both' case since we already printed for approved and similarly if looking for either I think we just need to grep/any discarded. Do you need discarded verbs removed from the matching lines as in choroba's post?
|