Re: World's First JAPH

[Ian Phillipps]

On Wed, 22 Aug 2001 at 11:32:18 +1000, [EMAIL PROTECTED] wrote:

> >From [EMAIL PROTECTED] (Randal Schwartz) 1 Feb 90 22:28:58 GMT
> @a=split(/(\d)/,"4Hacker,2another3Perl1Just");shift(@a);%a=@a;
> print "@a{1..4}";

66:

%a=("",split /(\d)/,"4Hacker,2another3Perl1Just");print"@a{1..4}";

I *think* this will work with perl 2, but I don't have a copy to hand ATM
I have used pad+split in this way for real before now...

What *is* the world's shortest JAPH, anyway? I would be disappointed if
it were just 'print "...."'

Ian