Hi All,

I have to parse on XML file that looks like

<Name>
<Name1>JESSICA HYNES</Name1>
<Name2>DERIK O'BRIEN</Name2>
<Name3>DENZIL</Name3>
</Name>

But when I parse it, I dont get some missing data like

JESSICA HYNES|DERIK|DENZIL

You can see O'BRIEN is missing because of ' I guess

Please give me some solution for this

Denzil

Show us your code and we might...

--
Charlie Harvey's website - linux, perl, java, anarchism and punk rock: http://charlieharvey.org.uk

Show me your code and we might...



:D

################################################## #####################
#to parse an xml file #
#model file is given in file.xml #
#file should have only one tag pairs in a line #
################################################## #####################

#!/usr/bin/perl
$filename=$ARGV[0];
open (FILE, "$filename") || die "Can't open $filename : $!\n";
@contents=<FILE>;
close(FILE);
$i=0;
$flag=0;
foreach $line (@contents)
{
$line=~s/>$/ /;
unless($line=~m/(.*>)/)
{
$lonelytag=$line;
$lonelytag=~s/<//;
if($lonelytag=~s/\///)
{

if($flag == 0)
{
print "\n\t$lonelytag\n";
print "@tag\n";
}
print "@value\n";
$i=0;
undef $value;
$flag++;
}

}

else
{
if(($line=~m/(^.*>)(.*<)/))
{
$tag[$i]=$1;
$value[$i]=$2;
$tag[$i]=~s/<//;
$tag[$i]=~s/>/ /;
$value[$i]=~s/<//;
$value[$i]=~s/$/ /;
$i++;
}
}
}
print "\n";


let me kwow if you need any info,
- Nazir