Date: 27 Sep 2001 22:57:44 GMT
From: damian@qimr.edu.au (Damian James)
Subject: Re: Forcing reevaluation of code in mod_perl scripts?
Message-Id: <slrn9r7big.l18.damian@puma.qimr.edu.au>

On Thu, 27 Sep 2001 15:04:11 GMT, Andrew Cady said:
>damian@qimr.edu.au (Damian James) writes:
>> [my JAPH, which appears below anyway]
>That's really cool.

Why, thank you :-).

If you're interested, it is mostly derived (almost to the point of
Cargo Cult) from the Fisher-Yates shuffle implementation in perlfaq4.

One interesting feature is the only instance I have ever seen where
the auto-flush variable ($|) is *usefully* incremented rather than just
set to 1. You might want re-work it into readable code to work out why.

Cheers,
Damian
-- 
@:=grep!(m!$/|#!..$|),split//,<DATA>;@;=0..$#:;while($:=@;){$;=rand
$:--,@;[$;,$:]=@;[$:,$;]while$:;push@|,shift@;if$;[0]==@|;select$,,
$,,$,,1/80;print qq x\bxx((@;+@|)*$|++),@:[@|,@;],!@;&&$/}  __END__
Just another Perl Hacker,### http://home.pacific.net.au/~djames.hub