#use warnings;
use strict;
use XML::XPath;
use XML::XPath::XMLParser;

my $start='<?xml version="1.0" encoding="utf-8"?>
<MultifamilyProperty xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">';
print "Enter the Input File name\n";
my $input=<STDIN>;
chomp($input);
print "Enter the Output File name\n";
my $output=<STDIN>;
#my $output="Check";
chomp($output);
my $output_file="$output".".xml";
unlink("$output_file");
open(fh,"<$input"); 
my @xmlsource= <fh>;
close fh;    #dummy xml
my $xmlsource ="@xmlsource";
my ($addrees_Sheet,$amenties_sheet,$unit_mix);
if($xmlsource=~m/<Worksheet\s*ss:Name="(?!Amenities|UnitMix)([^\"]*?)\"/is)
{
    $addrees_Sheet=$1;
	print "address_sheet:$addrees_Sheet\n";
}
if($xmlsource=~m/<Worksheet\s*ss:Name="(Amen[^\"]*?)\"/is)
{
    $amenties_sheet=$1;
	print "amen_sheet:$amenties_sheet\n";
}
if($xmlsource=~m/<Worksheet\s*ss:Name="(UnitMi[^\"]*?)\"/is)
{
    $unit_mix=$1;
	print "unixmxi_Sheet:$unit_mix\n";
}
# print "Enter the addrees_Sheet name\n";
# my $addrees_Sheet=<STDIN>;
# chomp($addrees_Sheet);
# my $amenties_sheet="Amenities_1";
# my $unit_mix="UnitMix_1";

open(FH,'>:utf8',"$output_file");
print FH $start."\n";
print FH "\t\t".'<Address>'."\n";
my $add_att='@ss:Name="'.$addrees_Sheet."\"";
my $ame_att='@ss:Name="'.$amenties_sheet."\"";
my $uni_att='@ss:Name="'.$unit_mix."\"";
my $add_path='/Workbook/Worksheet['.$add_att.']/Table/Row[position() > 1]/Cell/Data/node()';
my $add1_path='/Workbook/Worksheet['.$add_att.']/Table/Row[2]/Cell[3]/Data/node()';
my $ame_path='/Workbook/Worksheet['.$ame_att.']/Table/Row[position() > 1]/Cell[3]/Data/node()';
my $uni_path='/Workbook/Worksheet['.$uni_att.']/Table/Row[position() > 1]/Cell/Data/node()';	

my $xp = XML::XPath->new(filename =>$input);
my $nodeset4 = $xp->find("$add_path");
my ($count,$count1);
foreach my $node ($nodeset4->get_nodelist)
{
	my $value=XML::XPath::XMLParser::as_string($node);
	$count++;
	if($count==4)
	{		
		print FH "\t\t\t".'<Street>'.$value.'</Street>'."\n";	
	}
	if($count==5)
	{		
		print FH "\t\t\t".'<City>'.$value.'</City>'."\n";	
	}
	if($count==6)
	{		
		print FH "\t\t\t".'<State>'.$value.'</State>'."\n";	
	}
	if($count==7)
	{		
		print FH "\t\t\t".'<Zip>'.$value.'</Zip>'."\n";	
	}
}

print FH "\t\t".'</Address>'."\n";	

print FH "\t\t".'<Amenities>'."\n";	

#my $nodeset1 = $xp->find('/Workbook/Worksheet[@ss:Name="$amenties_sheet"]/Table/Row[position() > 1]/Cell[3]/Data/node()');
my $nodeset1 = $xp->find("$ame_path");
foreach my $node ($nodeset1->get_nodelist)
{
	my $value=XML::XPath::XMLParser::as_string($node);		
	print FH "\t\t\t".'<Amenity>'.$value.'</Amenity>'."\n";			
}
print FH "\t\t".'</Amenities>'."\n";	

#my $nodeset2 = $xp->find('/Workbook/Worksheet[@ss:Name="$addrees_Sheet"]/Table/Row[2]/Cell[3]/Data/node()');
my $nodeset2 = $xp->find("$add1_path");
foreach my $node ($nodeset2->get_nodelist)
{
	my $value=XML::XPath::XMLParser::as_string($node);		
	print FH "\t\t".'<BuildingName>'.$value.'</BuildingName>'."\n";			
}
print FH "\t\t".'<Units>'."\n";	

my ($max_r,$min_r,$max_sq,$min_sq,$bed,$bath,$units);

#my $nodeset3 = $xp->find('/Workbook/Worksheet[@ss:Name="$unit_mix"]/Table/Row[position() > 1]/Cell/Data/node()');
my $nodeset3 = $xp->find("$uni_path");
my $node_count=1;
foreach my $node ($nodeset3->get_nodelist)
{	
     print "node_count:$node_count\n";
	 #<>;
	 $node_count++;
	my $value=XML::XPath::XMLParser::as_string($node);
	$count1++;
    # my $value1=$node->getNodeValue;
	# print "value:$value1\n";
	
	$units='<NumUnits xsi:nil="true" />';
	$max_r='<MaxMonthlyRent xsi:nil="true" />';	
	$max_sq='<MaxUnitSizeSqFt xsi:nil="true" />';
	if($count1==3)
	{
		$bed='<NumBeds>'.$value.'</NumBeds>';
	}
	if($count1==4)
	{
		$bath='<NumBaths>'.$value.'</NumBaths>';
	}
	if($count1==5)
	{
		$min_sq='<MinUnitSizeSqFt>'.$value.'</MinUnitSizeSqFt>';
	}
	if($count1==6)
	{
		$min_r='<MinMonthlyRent>'.$value.'</MinMonthlyRent>';		
		
		print FH "\t\t\t".'<Unit>'."\n";	
		print FH "\t\t\t\t".$min_r."\n";			
		print FH "\t\t\t\t".$max_r."\n";			
		print FH "\t\t\t\t".$min_sq."\n";			
		print FH "\t\t\t\t".$max_sq."\n";			
		print FH "\t\t\t\t".$bed."\n";			
		print FH "\t\t\t\t".$bath."\n";		
		print FH "\t\t\t\t".$units."\n";
		print FH "\t\t\t".'</Unit>'."\n";
		undef $count1;
	}		
}
print FH "\t\t".'</Units>'."\n";	

print FH '</MultifamilyProperty>';
close FH;