[Chicago-talk] XML::parser

[Mike Fragassi]

Basically, you need to use the start and end handlers to keep track of 
when you enter and leave your chosen tag, in a separate variable.
Then the character handler checks this variable, and prints if it's ok.
(See my edits below.)

Note that this is very simple, and falls down in more complicated xml. 
E.g. if you have complicated nesting of tags:
   <url> foo <bar>x</bar> </url>
then this approach will print the 'x' as well as the 'foo'.  If that's 
a concern, you can use a stack instead of a single variable to hold the
xml tag names.

Also, it's probably a good idea to use "$element eq 'url'" instead of a 
regex match.

-- Mike F.

On Tue, 20 Feb 2007, /dev/mike0 wrote:
>
>

> use XML::Parser;
> my $xmlfile = shift;
> die "Cannot find file \"$xmlfile\""
>       unless -f $xmlfile;
> my $parser = new XML::Parser;
> $parser->setHandlers( Start => \&startElement,
>                        End => \&endElement,
>                       Char => \&characterData,
>                    Default => \&default);
> $parser->parsefile($xmlfile);

my $inside_url_tag;

> sub startElement {
>      my( $parseinst, $element, %attrs ) = @_;
>        if ($element =~ /url/) {
>        print "$element";
          $inside_url_tag = 1;
>       }
> }
>
> sub endElement {
>      my( $parseinst, $element ) = @_;
>      # do nothing, but stay quiet
        if ($element =~ /url/) {
           $inside_url_tag = 0;
        }
> }
>
> sub characterData {
>      my( $parseinst, $data ) = @_;
#        if ($data = /url/) {
          if ($inside_url_tag) {
>             print "$data\n ";
>        }
> }
>
> sub default {
>
>      my( $parseinst, $data ) = @_;
>        # do nothing, but stay quiet
> }
>
>
> The problem as i think it boils down to is.. if the xml tag is <url> i want to print out the character data between the start and end tag for it.. basically <url> print whats here</url>.
>
> Seems simple. but i am stuck.
>
> Thanks
> Mike
>
> http://www.mikeferrari.com
> http://www.chromeczars.com
> http://www.hunnertcarpileup.com
>
>
>
>
>
>
> ____________________________________________________________________________________
> It's here! Your new message!
> Get new email alerts with the free Yahoo! Toolbar.
> http://tools.search.yahoo.com/toolbar/features/mail/
> _______________________________________________
> Chicago-talk mailing list
> Chicago-talk at pm.org
> http://mail.pm.org/mailman/listinfo/chicago-talk
>
>
>
>
>
>
>
> ____________________________________________________________________________________
> Need Mail bonding?
> Go to the Yahoo! Mail Q&A for great tips from Yahoo! Answers users.
> http://answers.yahoo.com/dir/?link=list&sid=396546091
> _______________________________________________
> Chicago-talk mailing list
> Chicago-talk at pm.org
> http://mail.pm.org/mailman/listinfo/chicago-talk
>