Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Passing variable to if statement

by Jim (Curate)
on Jul 17, 2014 at 00:17 UTC ( #1093964=note: print w/replies, xml ) Need Help??


in reply to Passing variable to if statement

Consider this refactored version of your Perl script. (It hasn't been tested at all.)

use strict; use warnings; use autodie qw( open close ); use open qw( :encoding(UTF-8) :std ); my %terms_in; # Hash of hash of terms in each file my $terms_file = 'array.txt'; open my $fh1, '<', $terms_file; while (my $record = <$fh1>) { my ($file, $term) = $record =~ m/^(\S+)\s+(\S+)/; $terms_in{ $file }{ $term } = 1; } close $fh1; FILE: for my $file (keys %terms_in) { open my $fh2, '<', $file; while (my $line = <$fh2>) { for my $term (keys %$terms_in{ $file }) { if (index $line, $term) { print "Term $term found in file $file\n"; # Don't search terms that have already been found... delete $terms_in{ $file }{ $term }; } } # Don't keep searching file once all terms have been found... if (scalar keys %$terms_in{ $file } == 0) { close $fh2; next FILE; } } close $fh2; } # At this point, what remains in %terms_in are all the terms that # were not found in their respective files, which might be useful. exit 0;

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (4)
As of 2020-09-24 12:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If at first I donít succeed, I Ö










    Results (133 votes). Check out past polls.

    Notices?