Re: XML::Parser using stream

I first used XML::Parser, but then quickly switched to XML::Twig because I find its user interface easier to work with. If you are willing to entertain a Twig solution....

use warnings;
use strict;
use XML::Twig;

my $str = <<EOF;
<foo>

  <!-- Dog section -->

  <object type="Dog" >
    <property name="id" value="0" />
    <property name="name" value="REX" />
    <property name="status" value="alive" />
    <property name="mode" value="owned" />
    <property name="dog_breed_id" value="0" />
    <property name="dog_breed_name" value="Husky" />
    <property name="capacity" value="105" />
    <property name="size" value="big" />
    <property name="location" value="canada" />
  </object >

</foo> 
EOF

my $t = XML::Twig->new(
    twig_handlers => { object => \&woof }
);
$t->parse($str);

sub woof {
    my ($t, $obj) = @_;
    if ($obj->att('type') eq 'Dog') {
        my $name;
        my $id;
        my $bname;
        for my $prop ($obj->children('property')) {
            $name  = $prop->att('value') if $prop->att('name') eq 'nam
+e';
            $id    = $prop->att('value') if $prop->att('name') eq 'dog
+_breed_id';
            $bname = $prop->att('value') if $prop->att('name') eq 'dog
+_breed_name';
        }
        print "$name,$id,$bname\n";
    }
}

__END__

REX,0,Husky
[download]

Comment on Re: XML::Parser using stream Download Code

Replies are listed 'Best First'.
Re^2: XML::Parser using stream by Falantar (Initiate) on Aug 17, 2011 at 18:23 UTC
The code works well except now I'm getting a Segmentation Fault when I run the script. It occurs after my data has been printed, hangs for a while then throws the error message. This only happens on the XML files over 10mb. The small one doesn't get this error. Here's what the code looks like: use strict; use warnings; use XML::Twig; use vars qw/ %options /; use Getopt::Std; use Switch; #---- #Code to treat the file #---- my $t = XML::Twig->new( twig_handlers => { object => \&animal_handler } ); $t->parsefile($File); sub animal_handler { my ($t, $obj) = @_; if ($obj->att('type') eq 'dog') { my $name; my $id; my $bname; for my $prop ($obj->children('property')) { $name = $prop->att('value') if $prop->att('name') eq 'nam +e'; $id = $prop->att('value') if $prop->att('name') eq 'dog +_breed_id'; $gname = $prop->att('value') if $prop->att('name') eq 'dog +_breed_name'; } print "$id,$name,$bname\n"; } } [download] Any ideas why i'm getting this error? Or even a way to trace what part of the file or code it's occuring at?	[reply] [d/l]
Re^3: XML::Parser using stream (XML::Twig) by toolic (Bishop) on Aug 17, 2011 at 18:36 UTC
use Switch; The first thing to try is to get rid of all code that uses Switch.	[reply]
Re^4: XML::Parser using stream (XML::Twig) by Falantar (Initiate) on Aug 17, 2011 at 18:50 UTC
Actually I don't use it, I had already got rid of the code that was using it and forgot to delete that line.	[reply]