#! /usr/bin/perl

use strict;
use Data::Dumper;

my ( %linked_dsc, $main_var, @actions );

my $maincnt = 0;
my $found = 0;
my ($t1, $t2);
my $contitent_hash = { };

open (FILE, "./Data.txt") or die "Can't find file";

while (<FILE>) {

# From start of 1st 'Main' to start of 2nd 'Main', read the lines and 
# store in appropriate variables
# $contitent_hash has abbreviation as key and full name as value
# @actions has search patterns to look for in the next pass
# for example: 'NA' => 'North America' is in the hash variable and 
#					'Name = NA' is in the array
	if ( /^Main$/ ) {
		$maincnt++;
	}
	
	if ( $maincnt == 1 ) {
		if ( /^Main/../^End/) {
      	if ( /^\s*(.*)\s=\s(.*)/ ) {
      		if ( $1 eq "Name") {
					$main_var = $2;
					#$linked_dsc{ $main_var } = undef;
				}
      	}
   	}
		elsif ( /^Sub/../^End/) {	
      	if ( /^\s*(.*)\s=\s(.*)/ ) {
      		if ( $1 eq "Action") {
					($t1, $t2) = split ( /: /, $2 );
					push @actions, ('Name = '. $t2 );
					$contitent_hash->{ $t2 } = undef;
				}
				elsif ( $1 eq "Text") {
					$contitent_hash->{ $t2 } = $2;
				}
      	}	
		}
	}
	last if ( $maincnt > 1);
}

# Self checking...
print "---------------------\n";
print "@actions\n";
print "---------------------\n";
foreach my $key ( keys %{ $contitent_hash } ) {
	print "$key = $contitent_hash->{ $key }\n";
	#$linked_dsc{ $main_var }{ $contitent_hash->{ $key } } = undef;
}
print "---------------------\n";
# End of self check

foreach  ( @actions ) {
	
	print "SEARCH STRING: $_\n";
	my (undef, $link_word) = split / = /;
	my ($ret_dsc, $ret_arr ) = process_next( $_ );
	foreach my $key1 ( keys %{ $ret_dsc } ) {
		# Checking...
		print "$key1 = $ret_dsc->{ $key1 }\n";
		$linked_dsc{ $main_var }{ $contitent_hash->{ $link_word } }{ $ret_dsc->{ $key1 } } = undef;
	}
	#Checking...
	#print Dumper ( $ret_dsc );
	#print Dumper ( $ret_arr );
}

print Dumper ( \%linked_dsc );


# Subroutine to search for the searchstring in the file, start reading 
# the subsequent lines and store in appropriate variables until the 
# next 'Main' is encountered.
sub process_next {

my $searchstr = shift;

my $new_href= { };
my ( @new_actions, $left_val, $right_val);

seek ( FILE, 0, 0 );

$found = 0;

while ( <FILE> ) {
	
	if ( ! $found ) {
		if ( ! /$searchstr/ ) {
			next;
		}
		else {
			$found = 1;
		}		 		
	}
	
	if ( $found ) {
		if ( /^Sub/../^End/) {	
			if ( /^\s*(.*)\s=\s(.*)/ ) {
				if ( $1 eq "Action") {
						($left_val, $right_val ) = split ( /: /, $2 );
						if ( defined $right_val ) { 
							$new_href->{ $right_val } = undef;  
							push @new_actions, ('Name = '. $right_val );
						};
						#else { print "Not defined\n" };
					}
					elsif ( $1 eq "Text") {
						if (defined $right_val) { 
							$new_href->{ $right_val } = $2;	 
						}
						else { 
							$new_href->{ $2 } = $2 
						};
					}
			}	
		}
		last if ( /Main/ );
	}
}

# Checking...
# print "new actions : @new_actions\n";
return $new_href, \@new_actions;
}