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>");
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|