Perl error in parsing xml file

Piyu

when there is a root container and an item inside, i can get the data, but when there is a root container with a container with the item, it is giving me an error. please could someone help me. i am attaching the files(my DCR and the ipl file).
DCR name : Entry

IPL file :
#!F:\Interwoven\TeamSite\httpd\iw-bin/iw-perl/bin/iwperl
use TeamSite::CGI_lite;
use TeamSite::Config;
use XML:OM;


my $parser = new XML:OM:arser;
my $doc = $parser->parsefile ("Entry2");

my $root = $doc->getDocumentElement();
print "\nThe root element is ", $root->getNodeName(), ".\n";

my @children = $root->getChildNodes();
print "There are ", scalar(@children), " child elements.\n";

print "They are: \n";

foreach my $child ($root->getChildNodes())
{
print "hi";
print $child->getNodeName(), " = ", $child->getFirstChild()->getData(), "\n";

}

ISCBorisB

To use XML:OM Parser you have to understand XML DOM Model first. Almost any other Parser
will be easier for you to use. So, simplify your life and use dedicated Vendor's Modules.

Run perldoc on TeamSite:CRparser and TeamSite:CRnode Classes, that will give you an API you want.
See if you can leverage [post=124331]this[/post] code snippet for your needs. Note that DCR File *slurping* command (line #7) is
mangled there (shows correctly in Quote mode). It should read:
  my $dcr_string = do{local $/; <HDCR>};