in reply to Re^2: Loading a Local XML File
in thread Loading a Local XML File

Use parse() method for file handle, not parsefile() 

#$parser->parsefile($fileStream);
$parser->parse($fileStream);

[download]
or with filename using parsefile() 
$parser->parsefile('sample_xml.xml');

[download]
poj

Replies are listed 'Best First'.
Re^4: Loading a Local XML File
by novicepl (Initiate) on Aug 27, 2019 at 15:21 UTC
    Hi poj, Getting following error either way i.e. $parser->parse($fileStream); or $parser->parsefile('sample_xml.xml'); Undefined subroutine &main::hdl_def called at /usr/lib64/perl5/vendor_perl/XML/Parser/Expat.pm line 470.
[reply]

      You need to write the handler subroutines. What are you trying to extract from the XML ? Consider using XML::Twig 

      #!/perl/bin/perl
use strict;
use warnings;
use XML::Parser;

printf "OS %s Perl %s XML::Parser %s\n",$^O,$^V,$XML::Parser::VERSION;

my $parser = new XML::Parser 
   ( Handlers => 
      {   # Creates our parser object
         Start   => \&hdl_start,
         End     => \&hdl_end,
         Char    => \&hdl_char,
         Default => \&hdl_def,
      }
   );

$parser->parsefile('sample_xml.xml');

my $str;
sub hdl_start {
  $str = '';
};
sub hdl_end {
 my ($p, $elt) = @_;
 print "$elt = $str\n" if $elt eq 'parameter';
};
sub hdl_char {
  $str .= $_[1];
};
sub hdl_def {};

      [download]
      poj
[reply]
[d/l]

In Section Seekers of Perl Wisdom