#!/usr/local/bin/perl
#use strict;     #always add this in the beginning of code.
#use warnings;   #always add this in the beginning of code.

#open(INFILE, '<', 'sample.txt');   #For reading
#open(INFILE, '>', 'sample.txt');   #For writing
#open(INFILE, '>>', 'sample.txt');  #To append

my $TheInput = 'input.txt'; #File where you paste the scrambled words
my $TheWordList = 'wordlist.txt'; #File that contains the list of words that are unscrambled
my $TheOutput = 'output.txt'; #File where the matched words will be pasted
my $i = 0;

readinputlist(); #read scrambled list of words from a file
readwordlist();  #read unscrambled list from file
comparison();    #check the words to see if they match, if so save them in the array
outputInFile();  #paste the words into a file

sub readinputlist
{
	@scrambledWholeWord = ();
	my $i = 0;
	open(THEINPUT, '<', $TheInput) or die "\nERROR: Can't open $TheInput \n";      
	while (<THEINPUT>)
	{
		my $line = $_;
		chomp($line);
		$scrambledWholeWord[$i] = $line;
		$i+=1;
	}
	return @scrambledWholeWord;
	close(THEINPUT);
}
	
sub readwordlist
{
	@unscrambledWholeWord = ();
	my $i = 0;
	open(THEWORDLIST, '<', $TheWordList) or die "\nERROR: Can't open $TheWordList \n";      
	while (<THEWORDLIST>)
	{
		my $eachLine = $_; #the line that is currently being examined
		chomp($eachLine);
		$unscrambledWholeWord[$i] = $eachLine; #word from wordlist file
		$i+=1;
	}
	return @unscrambledWholeWord;
	close(THEWORDLIST);
}

sub comparison
{
	my $scrambledIndex = 0;										 #an index of scrambled list
	my $unscrambledIndex = 0;									 #an index of unscrambled list
	my $j = 0;        												 #keep an index of the unscrambled words
	my $k = 0;
	my @scrambledWord;
	my @thisUnscrambledWord;
	my $numberOfLettersScrambled;
	my $numberOfLettersUncrambled;
	my $matchCount = 0;       									 #keep a count of how many matches are found.
	@matchedWords = ();   										 #list to contain words to be printed (matched words)
	my $y = 0;
	$endOfArray = $#unscrambledWholeWord;
	
	while ($#matchedWords+1 < 10)
	{
		@scrambledWord = split(//, $scrambledWholeWord[$k]);
		@thisUnscrambledWord = split(//, $unscrambledWholeWord[$j]);  #split the letters of the word up into an array
		$numberOfLettersScrambled = $#scrambledWord;          #number of letters in the list scrambledWord
		$numberOfLettersUnscrambled = $#thisUnscrambledWord;          #number of letters in the list scrambledWord		   
		$scrambledIndexSaved = $scrambledIndex;                	 #save the index of the scrambled word		   
		$unscrambledIndexSaved = $unscrambledIndex;               #save the index of the unscrambled word
		#print "$scrambledWholeWord[$k]\n";
		#print "$unscrambledWholeWord[$j]\n";
		#print "$numberOfLettersScrambled\n";
		#print "$numberOfLettersUnscrambled\n";
		#print "$scrambledWord[$scrambledIndex]\n";
		#print "$thisUnscrambledWord[$unscrambledIndex]\n";
				
		if ($thisUnscrambledWord[$unscrambledIndex] eq $scrambledWord[$scrambledIndex])
		{$matchCount++;}
		   
		$scrambledIndex++;
				   
		if (($matchCount == $numberOfLettersUnscrambled)&&($matchCount == $numberOfLettersScrambled))
		{
			print "MATCH FOUND! $scrambledWholeWord[$k]\n";
			$matchedWords[$y] = $unscrambledWholeWord[$j];
			$y++;
			$j = 0;
			$k++;
			$unscrambledIndex = 0;
			$scrambledIndex = 0;
			$matchCount = 0;
		}
		   
		if ($scrambledIndex == $numberOfLettersScrambled)
		{
			$scrambledIndex = 0;
			$unscrambledIndex++;
		}
		
		if ($unscrambledIndex == $numberOfLettersUnscrambled)
		{
			$unscrambledIndex = 0;
			$j++;
			$matchCount = 0;
			$wordsTried++;
		}
		
		if ($wordsTried == $endOfArray)
		{
			$wordsTried = 0;
			$k++;
		}
	}
	
	return @matchedWords;
}

sub outputInFile
{
	my $i = 0;
	open(OUT, '>output.txt') or die "\nError: Couldn't open $ThisFile \n";
	for ($i = 0; $i<10; $i+=1)
	{	print "$matchedWords[$i]\n";	}
}

#use strict;     #always add this in the beginning of code.
#use warnings;   #always add this in the beginning of code.