Bhuvana,

XML questions are best asked on the perl-XML list. Many Twig users frequent
that list (even the author chimes in from time to time).

I'm not all that familiar with Twig, so what I can do is give you working
XML::LibXML code:

my $doc = XML::LibXML-> new->parse_file($ARGV[0]);
my @dl_nodes = $doc-> findnodes('//dl');
foreach my $dl (@dl_nodes) {

	#create replacement dl element
	my $new_dl = XML::LibXML::Element-> new('dl');
	$new_dl-> appendText("\n");

	#process the old dl element
	my $text = $dl-> textContent;
	foreach $line (split /\s*\n\s*/, $text) {
		my ($first, $second) = split /\s+/, $line, 2;
		next unless $second; #skip incomplete lines
		$new_dl-> appendTextChild('first',$first);
		$new_dl-> appendTextChild('second',$second);
		$new_dl-> appendText("\n");
	}

	#now perform replacement
	$dl-> replaceNode($new_dl);
}
print $doc-> toString;




-- 
Mark Thomas                    Thomas.Mark@[...].gov 
Internet Systems Architect     DigitalNet, Inc. 


>  -----Original Message-----
>  
>  Hello,
>  
>  Using xml twig, I am trying to supply two elements in a line 
>  with the separator tab.
>  
>  Ex:
>  <c>
>  <dl>
>  ABC    CDE
>  add    eerwe
>  sdfsdfs    erewrwe
>  </dl>
>  </c>
>  
>  Expected Result:
>  <c>
>  <dl>
>  <first>ABC</first><second>CDE</second>
>  <first>add</first><second>eerwe</second>
>  <first>sdfsdfs</first><second>erewrwe</second>
>  </dl>
>  </c>

_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@[...].com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs