comments are important after all

Hi all.

$_='
##### init: #####
&p;
#### restart: ###
&p;
##### main: #####
&p;
#### finish: ####
&p;
sub p {select'.('$`,'x3).'($|=print)/9 for@_}
';

$.="he,qng]dJshQ ruJr Paaktg oetljryccwsR_djeYK^Y[Ued]_IW_WPPijsP^i";
s#([^\#\s])(?=.* \#)|;#$^=(-97+unpack U,$1)%length$.;$&!~/;/?$.=~s/\
?(?<=.{$^})./$\.="'$&',";""/e:($/=$\,$\="","($/)".$&)#eg;eval
[download]

Did this after people complained that i don't comment my code enough :-).
Hope you like it, standard apologies if it's been done before etc.
Al

Update: changed output style.

Comment on comments are important after all Download Code

Replies are listed 'Best First'.
Re: comments are important after all by jdalbec (Deacon) on Jun 07, 2005 at 15:42 UTC
<Reveal this spoiler or all in this thread>	[reply] [d/l] [select]
Re^2: comments are important after all by grinder (Bishop) on Jun 08, 2005 at 09:56 UTC
oooh, shiny! how did you do that spoiler node/page trick thing? I recall discussion on the subject, but I don't remember where/when. A quick refresher in the form a link to documentation would be most appreciated! - another intruder with the mooring in the heart of the Perl	[reply]
Re^3: comments are important after all by teamster_jr (Curate) on Jun 08, 2005 at 16:39 UTC
<spoiler> and </spoiler> (in the same manner as readmore) alex	[reply]
Re^3: comments are important after all by kaif (Friar) on Jun 08, 2005 at 17:21 UTC
See the Perl Monks Approved HTML tags. It contains a list of all appropriate HTML tags, along with the Perl Monks pseudo-tags: `<code>`, `<readmore>`, and `<spoiler>`.	[reply] [d/l] [select]