Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: Parsing XML into a simple hash

by bikeNomad (Priest)
on Jun 21, 2001 at 10:03 UTC ( #90293=note: print w/replies, xml ) Need Help??


in reply to Pasring XML into a simple hash

Or you could force it into a single element by attaching tags to both ends:
#!/usr/bin/perl -w use strict; use XML::Parser; my %hash; my $depth = 0; my @tags; sub start { my ($expat, $element) = @_; push(@tags, $element); $hash{$tags[-1]} = ''; } sub end { pop(@tags); if (@tags == 1) { delete $hash{posts}; delete $hash{post}; # now you have hash. print "Job: $hash{jobnumber}\n"; print "City: $hash{location}\n"; %hash = (); } } sub char { my ($expat, $string) = @_; $hash{$tags[-1]} .= $string; } my $text = <<'EOF'; <post> <jobnumber>1234</jobnumber> <location> somecity NJ </location> </post> <post> <jobnumber>87922</jobnumber> <location> Othercity, AK </location> </post> EOF my $p1 = new XML::Parser(Handlers => { Start => \&start, End => \&end, Char => \&char }); $p1->parse("<posts>$text</posts>");

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://90293]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (4)
As of 2020-05-25 12:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If programming languages were movie genres, Perl would be:















    Results (145 votes). Check out past polls.

    Notices?