#!/usr/bin/perl  -w
# File displayPipeTracer2.pl

use XML::DOM;
use Getopt::Long;

my $testXML = qw/textXML.xml/;
my $test4 = "";
my $parser = new XML::DOM::Parser;
my $doc = $parser->parsefile ($testXML);

foreach my $entry ($doc->getElementsByTagName('Entry')) {
	my $test1 = $entry->getElementsByTagName('test1')->item(0)->getFirstChild->getNodeValue;
	my $test2 = $entry->getElementsByTagName('test2')->item(0)->getFirstChild->getNodeValue;
	my $test3 = $entry->getElementsByTagName('test3')->item(0)->getFirstChild->getNodeValue;
	#if (defined $entry->getElementsByTagName('test 4')->item(0)->getFirstChild->getNodeValue) {
	#	$test4 = $entry->getElementsByTagName('test4')->item(0)->getFirstChild->getNodeValue;
	#}
	print "$test1, $test2, $test3";
	print ", $test4" if defined $test4;
	print "\n";
}