sorry...
Bob La Quey
robertl1 at home.com
Sat Aug 19 23:22:37 CDT 2000
~sdpm~
This is from the Perl-XML list. It is just too good
not to pass on.
Bob La Quey
>Delivered-To: Perl-XML at listserv1.ActiveState.com
>Date: Fri, 18 Aug 2000 06:46:20 +0100 (BST)
>From: Matt Sergeant <matt at sergeant.org>
>To: David Ashe <dave at inta.net.uk>
>cc: Perl-XML at listserv1.ActiveState.com
>Subject: Re: sorry...
>Sender: perl-xml-admin at listserv1.ActiveState.com
>X-BeenThere: perl-xml at listserv.ActiveState.com
>X-Mailman-Version: 2.0beta2
>List-Id: <perl-xml.listserv.ActiveState.com>
>
>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 :-)
>
>--
><Matt/>
>
>Fastnet Software Ltd. High Performance Web Specialists
>Providing mod_perl, XML, Sybase and Oracle solutions
>Email for training and consultancy availability.
>http://sergeant.org | AxKit: http://axkit.org
>
>_______________________________________________
>Perl-XML mailing list
>Perl-XML at listserv.ActiveState.com
>http://listserv.ActiveState.com/mailman/listinfo/perl-xml
>
~sdpm~
The posting address is: san-diego-pm-list at hfb.pm.org
List requests should be sent to: majordomo at hfb.pm.org
If you ever want to remove yourself from this mailing list,
you can send mail to <majordomo at happyfunball.pm.org> 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 happyfunball.pm.org> .
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