Bob La Quey robertl1 at
Sat Aug 19 23:22:37 CDT 2000

This is from the Perl-XML list. It is just too good
not to pass on. 

Bob La Quey

>Delivered-To: Perl-XML at
>Date: Fri, 18 Aug 2000 06:46:20 +0100 (BST)
>From: Matt Sergeant <matt at>
>To: David Ashe <dave at>
>cc: Perl-XML at
>Subject: Re: sorry...
>Sender: perl-xml-admin at
>X-BeenThere: perl-xml at
>X-Mailman-Version: 2.0beta2
>List-Id:  <>
>On Tue, 15 Aug 2000, David Ashe wrote:
>> ...but somebody had to do it sooner or later...
>> xml parser including xml in 7 lines
>> does not support dtd's or entites, thats for the next version!
>> #!/usr/bin/perl
>> use strict; # xml path parser (c) david ashe
>> my $b=sub{print join('/',@{$_[0]}),'='.$_[1],"\n";};
>> my $a=sub{($_=$_[1])ne''?((s/^\///go)?pop
>> @@:((s/\/$//go)?&$b([@@,$_]):(($_[0])?push
>> @@,$_:&$b(\@@,$@))))&int(!$_[0]):return 1;};
>> ($£?(($^ eq '>')?($£,$@)=&$a($£,$@):$@.=$^):(($^ eq
>> '<')?($£,$@)=&$a($£,$@):$@.=$^))while(read(DATA,$^,1));
>> __END__
>> <root><parent><subparent>perl</subparent><its>foo</its><something/><subparent><what/>bar</subparent></parent></root>
>You're a sick, sick man... Help is on its way :-)
>Fastnet Software Ltd. High Performance Web Specialists
>Providing mod_perl, XML, Sybase and Oracle solutions
>Email for training and consultancy availability.
> | AxKit:
>Perl-XML mailing list
>Perl-XML at

The posting address is: san-diego-pm-list at

List requests should be sent to: majordomo at

If you ever want to remove yourself from this mailing list,
you can send mail to <majordomo at> with the following
command in the body of your email message:

    unsubscribe san-diego-pm-list

If you ever need to get in contact with the owner of the list,
(if you have trouble unsubscribing, or have questions about the
list itself) send email to <owner-san-diego-pm-list at> .
This is the general rule for most mailing lists when you need
to contact a human.

More information about the San-Diego-pm mailing list