«

Here is the code fragments:

================================================== ============
# Parser command
my $parser = new XML:arser (ErrorContext => 2);
$parser->setHandlers(Start => \&start_handler
, Char => \&char_handler
, End => \&end_handler
, Default => \&default_handler
);
$retVal = $parser->parsefile($file);
....
sub char_handler {
my ($p, $data) = @_;


print "char_handler: data = *$data*\n";
================================================== ============


The last print statement always prints '1' with the following input
(even for NAME or VALUE fields). Subroutines for Start or End seem to
work just fine.


================================================== ============
<P1>
<T1> T1_TXT </T1>
<F1>
<F2>
<NAME> MY_NAME </NAME>
<VALUE> 1 </VALUE>
</F2>
....
================================================== ============


Any help will be greatly appreciated.

Quoth Jim Gibson <>:
>
> Here is a question for Perl gurus: how does one use the special file
> handle DATA to feed data to parsefile(). parsefile(DATA) didn't work
> for me:
>
> Couldn't open DATA:
> No such file or directory at swapnajit2.pl line 14

->parsefile accepts a filename, so passing it an (unquoted) string is
going to try to open that as a file. DATA is a filehandle, so you need
to pass it to ->parse; however, a simple unquoted DATA is a string,
which ->parse will try to read XML from directly. You have to pass a
proper reference:

$XML->parse(\*DATA, ...);

You should always pass bareword filehandles like this: as you can see,
it's safer. Don't try to get away with just *DATA: bare globs are very
magical, and can behave rather oddly.

Ben

Jim,

I finally made it work. It was a mistake that I had made in parsing
the $data variable (as you correctly suspected).

Thanks for your help.