pin not equal appending first Charge data1data2data3Pin 1data5data6data7data8 pin equal data9data10 appending a Charge pin equal data11data12 appending a Charge writing document Process completed successfully ##

##


data1data2data3Pin 1data5data6data7data8

##

##

use strict;
use warnings;
use Data::Dumper;

use XML::LibXML;

#my $READFILENAME = "SomeDir\\data.txt";
my $WRITEFILENAME = "test.xml";

my $doc = XML::LibXML::Document->new('1.0');
my $root = $doc->createElement("XML_FILE");
open (FILEWRITE, ">$WRITEFILENAME");
#  open (READFILE, $READFILENAME);
my $copy_person_pin = "XX";
;; ############################


while (my $line = ) 
{
    chomp $line; 
    my @data = split(/\t/,$line);
    my $reason1 = $data[0];
    my $reason2 = $data[1];
    my $reason3 = $data[2];
    my $person_pin = $data[3];
    my $name = $data[4];
    my $zip = $data[5];
    my $date = $data[6];
    my $time = $data[7];
    
    my $report = $doc->createElement("REPORT");
    $report->setAttribute('TYPE'=>'AB'); 
  
    if ($person_pin ne $copy_person_pin)
    {  
       # Build the Report tags
  
       my @sortedReportTag = qw ( REASON1 REASON2  REASON3);
				

       my %reportHashTags;
       @reportHashTags { @sortedReportTag } = ($reason1,
					 $reason2,
					 $reason3
					     );                                                                            
       buildXMLElements(\@sortedReportTag, \%reportHashTags, $report); 

       $root-> appendChild($report);

       # Build the element for Person Tag
       
       my $person = $doc->createElement("PERSON");
       my @sortedPersonTag = qw ( PIN
			    NAME
			    ZIP); 
       my %personHashTags;
       @personHashTags { @sortedPersonTag } = ($person_pin,
					 $name,
					 $zip
					     );
       # Build the elements for Person Tag 
       
       buildXMLElements(\@sortedPersonTag, \%personHashTags, $person);
       $report-> appendChild($person); 


       # Build the elements for Charge Tag
       
       my $charge = $doc->createElement("CHARGE");     
       my @sortedChargeTag = qw ( DATE
			    TIME
			    );
       my %chargeHashTags;
       @chargeHashTags { @sortedChargeTag } = ($date,
					 $time
					  );   
       
       buildXMLElements(\@sortedChargeTag, \%chargeHashTags, $charge);
       $report-> appendChild($charge);
       $copy_person_pin = $person_pin;
       
print STDERR "pin not equal\n";
print STDERR "appending first Charge\n";
print STDERR $report->toString(),"\n"; # returns a character string
    }
    else 
    {
print STDERR "pin equal\n";
       my $charge = $doc->createElement("CHARGE");  
 
       my @sortedChargeTag = qw ( DATE
				    TIME
				    );
       my %chargeHashTags;
       @chargeHashTags { @sortedChargeTag } = ($date,
						 $time
						  );  
	# Build the elements for Charge Tag                                     
	buildXMLElements(\@sortedChargeTag, \%chargeHashTags, $charge);
	$report-> appendChild($charge); 
print STDERR $report->toString(),"\n"; # returns a character string	 
print STDERR "appending a Charge\n";	 
     }
}

print STDERR "writing document\n";
$doc->setDocumentElement($root);

# Write the XML to a file
print FILEWRITE ($doc->toString());
close FILEWRITE;

sub buildXMLElements 
{
    my($elementTags, $hashTags, $parentElement) = @_;
    for my $name (@$elementTags) 
    {
        my $reportTag = $doc->createElement($name);
        my $reportValue = $hashTags->{$name};
        $reportTag->appendTextNode($reportValue);
        $parentElement->appendChild($reportTag);
    }
}

__DATA__
Reason1	Reason2	Reason3	Pin	Name	Zip	Date	Time

data1	data2	data3	Pin 1	data5	data6	data7	data8
data1	data2	data3	Pin 1	data5	data6 	data9	data10
data1	data2	data3	Pin 1	data5	data6	data11	data12