Re: [FWP] aCertainName.pm

[Peter Scott <Peter@PSDT.com>]

At 04:04 PM 11/8/99 -0600, Tushar Samant wrote:
>Being the elitist a******s that we are, I thought I would ask for
>contributions to, uh, aCertainName.pm. Well, in-house we are actually
>going to call it a certain name for a while, until the joke wears off.
>It's in honour of one of the most baroque coders we have known. It's
>not me. Really. The idea is to reimplement as many Perl keywords as
>possible in Perl--in the worst, most horrendous way. For instance,
>
>sub substr { my($s,$o,$l) = @_; join '', (split '', $s)[$o..$o+$l-1]; }
>
>I don't know if this is correct, BTW. What I am looking for, though,
>is not just badness but madness, preferably with a method in it. I
>want something which will bring back memories when I am old.
>
>Another "project" I have in mind is overriding keywords with subs
>that use regexes only. For instance, chop() is easy, a wrapper on
>C<s/.$//>. substr could be derived from
>
>    "(?:" . ("." x $offset) . ")(" . ("." x $len) . ")"
>
>How much more can be done without using eval?

sub length { $_[0] =~ y///c }


--
Peter Scott
Pacific Systems Design Technologies


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe