Hi,

I am using XML::XPath module for parsing XML document.In XML document if i have empty value.I could not get empty value.I got only non null value.

<Cell><Data ss:Type="Number">1</Data></Cell> <Cell><Data ss:Type="String">1</Data></Cell> <Cell><Data ss:Type="String">1</Data></Cell> <Cell><Data ss:Type="String"></Data></Cell> <Cell><Data ss:Type="String"></Data></Cell> <Cell><Data ss:Type="String"></Data></Cell> <Cell><Data ss:Type="String">695</Data></Cell> <Cell><Data ss:Type="String"></Data></Cell>

Consider this is source.I need to get all null and non null values

#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-insta
+nce" 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_she
+et"]/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_Shee
+t"]/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"]/T
+able/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;
[download]

Regards,

kumar