problem when parsing the xml file

[reddyth]

Dear All,

I wanted to parse an XML file and print the element's content.
I have the following code for the same. I have printed the ourput too.
The problem is it is printing unwanted spaces and new lines in the output.
Help me avoid this problem.

use XML::Parser;
my $parser = XML::Parser->new( Handlers => {
Init => \&handle_doc_start,
Final => \&handle_doc_end,
Start => \&handle_elem_start,
End => \&handle_elem_end,
Char => \&handle_char_data,
});
#
# globals
#
my $record; # points to a hash of element contents
my $context; # name of current element
my %records; # set of address entries
#
# read in the data and run the parser on it
#
my $file = "/home/reddyth/HPPGlobalAuditTool/client/config/test.xml";
 
if( $file ) {
    #print "going to parse the file";
$parser->parsefile( $file );
} 
###
### Handlers
###
 
sub handle_doc_start {}
#
# save element name and attributes
#
sub handle_elem_start {
my( $expat, $name, %atts ) = @_;
$context = $name;
$record = {} if( $name eq 'jdbc-data-source' );
}
# collect character data into the recent element's buffer
#
sub handle_char_data {
my( $expat, $text ) = @_;
# Perform some minimal entitizing of naughty characters
$text =~ s/&/&/g;
$text =~ s/</&lt;/g;
$record->{ $context } .= $text;
}
#
# if this is an <entry>, collect all the data into a record
#
sub handle_elem_end {
my( $expat, $name ) = @_;
return unless( $name eq 'jdbc-data-source' );
my $fullname = $record->{'name'} . $record->{'value'};
print $fullname;
$records{ $fullname } = $record;
}
#
# Output the close of the file at the end of processing.
#
sub handle_doc_end {
 
foreach my $key ( sort( keys( %records ))) {
    %chardata = "";
print $records{$key}->{'name'} ;
print $records{$key}->{'algorithm-type'} ;
%chardata = ($records{$key}=>'url');
print $chardata{'url'};
#print $records{$key}->{'url'};
print $records{ $key }->{'initial-capacity'};
}
 
}
 

Output:

JDBC Data Source-0
user
hpp_wls9


JDBC Data Source-0
user
30

XML File:

<jdbc-data-source xmlns="http://www.bea.com/ns/weblogic/90" xmlns:sec="http://www.bea.com/ns/weblogic/90/security" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:wls="http://www.bea.com/ns/weblogic/90/security/wls" xsi:schemaLocation="http://www.bea.com/ns/weblogic/910/domain.xsd">
  <name>JDBC Data Source-0</name>
  <jdbc-driver-params>
    <url>jdbc:oracle:thin:@gvu0183.houston.hp.com:1525:hppsys2</url>
    <driver-name>oracle.jdbc.xa.client.OracleXADataSource</driver-name>
    <properties>
      <property>
        <name>user</name>
        <value>hpp_wls9</value>
      </property>
    </properties>
</jdbc-data-source>
 

[eWish]

I don't see anything in your code to cause any line breaks or extra spaces. Are you unhappy that the following data is not on one line?

JDBC Data Source-0
user
30

--Kevin