Homework & Coursework Questions

Use and complete the template provided. The entire template must be completed. If you don't, your post may be deleted!

1. The problem statement, all variables and given/known data:

I am hoping you guys can help me out for school I have to create a Perl script that takes out text from one file (a transcript) then try's to find the same word in a dictionary file that contains the word and and its pronunciation spelling and then writes the word with the pronunciation spelling into a new file. Below is an example.

2. Relevant commands, code, scripts, algorithms:

YES NOW YOU KNOW IF IF EVERYBODY LIKE IN AUGUST WHEN EVERYBODY'S ON VACATION OR SOMETHING WE CAN DRESS A LITTLE MORE CASUAL OR

It would have to find each word in this text in a dictionary file such as this

YERKEY Y ER1 K IY0

YERMAN Y ER1 M AH0 N

YERXA Y ER1 K S AH0

YES Y EH1 S

YESES Y EH1 S IH0 Z
and report back all the terms with the pronunciation.

3. The attempts at a solution (include all code and scripts):

This is is a continuing of last semesters work I found a script one person created but when I run it its not outputting at all to the new file its only printing the first section on my terminal screen. I have never done perl scripting before and am trying to learn on the fly as the teacher won't help us out. Anything you guys could do would be immensely appreciated. Thanks

Code:

#!/usr/bin/perl
 
if( $#ARGV != 2 )
{
    print "Compares the list of words in a file to the words in a dict
+ionary and outputs the words available with pronunciations\n";    
    print "perl GenerateDictionary WordFile DictionaryFile OutputFile\
+n";
    exit;
}
 
open( WORD_FILE,  "$ARGV[0]" );
open( DICT_FILE,  "$ARGV[1]" );
open( OUTP_FILE, ">$ARGV[2]" );
 
@theDICT = <DICT_FILE>;
close( DICT_FILE );
 
while( <WORD_FILE> )
{
    my($line) = $_;
 
    chomp($line);
 
    foreach( @theDICT )
    {
        $tmpLine = $_;
 
        @items = split( / /, $tmpLine );
 
        if( @items[0] eq $line )
        {
            print $line."\t".$tmpLine;
            print OUTP_FILE $tmpLine;
        }
 
    }

4. UNH, Manchester NH, US, Jonas, and CIS 790-Capstone:


Note: Without school/professor/course information, you will be banned if you post here! You must complete the entire template (not just parts of it).

Here are a few things to help you get started:
1. Read about filehandles in perl. Learn how to open a file, read a file and close it.
2. Also read about pattern matching.
3. I see this line: @theDICT = <DICT_FILE>. Loading the whole file in an array is a bad practice. I'm sure the dictionary is pretty huge and doing so would gobble up a lot of memory!