Re: How to club different lines of program into one

[McDarren]

in reply to How to club different lines of program into one

I think part of your question is missing. That is, you haven't specified which of the words in your file are supposed to be present and which are not.

But in any case, consider the following:

darren@dino:~/perl$ cat words.txt 
january
february
egypt
moon
saturday

darren@dino:~/perl$ cat missing.pl 
#!/usr/bin/perl
use strict;
use warnings;

my $word_file = 'words.txt';
my @required_words = qw/january larry_wall february holiday egypt moon
+ saturday/;
my %words;

open my $in, '<', $word_file or die "$!\n";

while (my $line = <$in>) {
    chomp $line;
    $words{$line}++;
}
close $in;

for my $word (@required_words) {
    if ($words{$word}) {
        print "Required word $word is present\n";
    }
    else {
        print "Required word $word is missing\n";
    }
}

darren@dino:~/perl$ perl missing.pl 
Required word january is present
Required word larry_wall is missing
Required word february is present
Required word holiday is missing
Required word egypt is present
Required word moon is present
Required word saturday is present

Hope this helps,
Darren