Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: How can you check if a word in a array occur in another array?

by frozenwithjoy (Curate)
on Nov 29, 2012 at 08:29 UTC ( #1006195=note: print w/ replies, xml ) Need Help??


in reply to How can you check if a word in a array occur in another array?

To avoid complicated nested loops, I'd make use of a hash to index your first file and then look up the second list of words in the hash. Here is something a bit more simple that you can mess with to fit your needs:

#!/usr/bin/env perl use strict; use warnings; use feature 'say'; my $file_1 = "the cat ran up the tree the cat the dog then barked at the cat the +cat jumped out of the tree"; my $file_2 = "the cat dog"; my %words; $words{$_}++ for split / /, $file_1; say "$_: $words{$_} occurrence(s)" for split / /, $file_2; __END__ the: 7 occurrence(s) cat: 4 occurrence(s) dog: 1 occurrence(s)


Comment on Re: How can you check if a word in a array occur in another array?
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (9)
As of 2014-11-01 01:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (227 votes), past polls