On Wed, Apr 17, 2002 at 02:34:20PM -0400, Bill -Sx- Jones wrote:
> On 4/17/02 2:22 PM, "Michael G Schwern" <[EMAIL PROTECTED]> wrote:
>
> > The above implies the format is something like:
> >
> > SNEEXADMINEND
> >
> > in which case, suicide is an honorable option.
>
>
> :)
>
> Actually, the input data looks more like
>
> [SNEEX]
> ....
> [ADMIN]
> ....
> [END]
# setup %Dispatch as before, then...
while( $vData =~ /\[([A-Z])\]/g ) {
$Dispatch{$1}->();
last if $End;
}
--
Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
