Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^2: Matching multiple substrings of a string to arrays and printing those that match

by mr_ron (Hermit)
on Apr 03, 2018 at 21:24 UTC ( #1212295=note: print w/replies, xml ) Need Help??


in reply to Re: Matching multiple substrings of a string to arrays and printing those that match
in thread Matching multiple substrings of a string to arrays and printing those that match

For reading the arrays of verbs one might also do something like:

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?

Ron
  • Comment on Re^2: Matching multiple substrings of a string to arrays and printing those that match
  • Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1212295]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2022-01-25 12:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:












    Results (66 votes). Check out past polls.

    Notices?