Shell Programming and Scripting

#! /usr/bin/perl

use strict;
use warnings;

my %corpus;  # The hash we will use to store a map of the corpus in
$/ = "\r\n"; # These files are DOS files, so set the end of line accordingly
open (my $corpus, '<', 'Output')||die 'Could not open Output file, $!';
while(<$corpus>){
   chomp;
   if ($_){ # Avoid emptylines
      my($syllable, $example)=split(/=/, $_ );#extract the values
      $corpus{$syllable}=$example;            #and store in the global hash
   }

}
close $corpus;
open (my $syllable ,'<', 'Syllables' )||die 'Could not open Syllables file, $!';
while (<$syllable>){
   chomp;
   print $corpus{$_} ? "$_ has the example $corpus{$_} in the provided corpus\n": "I do not have an example for $_\n";
}

#! /usr/bin/perl

use strict;   # These two lines save you endless trouble 
use warnings; # without them typos and such errors get missed

open (my $corpus_file, '<', 'Corpus'); # Created a test corpus with just the contained lines
$/="\r\n"; # Again with the DOS files
chomp(my @corpus = (<$corpus_file>));  # Load the corpus file into an array for faster access
open (my $syllables_file, '<', 'Syllables');
while(<$syllables_file>){
    chomp(my $syllable = $_);
    for my $word (@corpus){
        if ( $word =~ /$syllable/){  # use a regular expression to find a match for the syllable
            print "$syllable=$word\n";
            last; #Stop processing the array of words as we have an example
        }
    }
}

 $ARGV[0]

 $ARGV[1]

cat Corpus;echo '_____________';cat Syllables;echo '_____________'; perl nested_loop.pl;echo '_____________';cat nested_loop.pl 
cat
bracken
amaze
_____________
ca
bra
maz
chai
_____________
ca=cat
bra=bracken
maz=amaze
chai wasn't matched in the supplied corpus
_____________
#! /usr/bin/perl

use strict;   # These two lines save you endless trouble 
use warnings; # without them typos and such errors get missed

open (my $corpus_file, '<', 'Corpus'); # Created a test corpus with just the contained lines
$/="\r\n"; # Again with the DOS files
chomp(my @corpus = (<$corpus_file>));  # Load the corpus file into an array for faster access
open (my $syllables_file, '<', 'Syllables');
while(<$syllables_file>){
    chomp(my $syllable = $_);
    my $found = 0;
    for my $word (@corpus){
        if ( $word =~ /$syllable/){  # use a regular expression to find a match for the syllable
            print "$syllable=$word\n";
            $found = 1;
            last; #Stop processing the array of words as we have an example
        }
    }
    print "$syllable wasn't matched in the supplied corpus\n" if (! $found);
}