[Gllug] Perl - was: Perl Question - Spam Filter for NMS Form Mail

[Nix]

On 10 Feb 2009, Dave Cross said:
> And when you look at the Perl code of some popular programs (awstats,
> majordomo, any of Matt Wright's scripts) it's not hard to see how that
> perception arose.

Then you look at procmail, with its *unique* indentation, commenting,
and (lack-of)-spacing style and its little gems like this:

,----[ excerpted from formail.c ]
| /*
|  *      sender determination fields in order of importance/reliability
|  *      reply-address determination fields (wrepl specifies the weight
|  *      for header replies and wrrepl specifies the weight for header
|  *      replies where Resent- header are used, while the position in the
|  *      table index specifies the weight for envelope replies and From_
|  *      line creation.
|  *
|  *      I bet this is the first time you've seen a bar graph in
|  *      C-source-code :-)
|  */
| static const struct {const char*head;int len,wrepl,wrrepl;}sest[]=
| { sslbar(replyto        ,"*********"    ,"********"     ),
|   sslbar(Fromm          ,"**foo***"     ,"**bar**"      ),
|   sslbar(sender         ,"*******"      ,"******"       ),
|   sslbar(res_replyto    ,"*"            ,"***********"  ),
|   sslbar(res_from       ,"*"            ,"**********"   ),
|   sslbar(res_sender     ,"*"            ,"*********"    ),
|   sslbar(path           ,"**"           ,"*"            ),
|   sslbar(retreceiptto   ,"***"          ,"**"           ),
|   sslbar(errorsto       ,"****"         ,"***"          ),
|   sslbar(returnpath     ,"******"       ,"*****"        ),
|   sslbar(From_          ,"*****"        ,"****"         ),
| };
`----

and you realise that actually you can write appalling demented grot in
any language.
-- 
Gllug mailing list  -  Gllug at gllug.org.uk
http://lists.gllug.org.uk/mailman/listinfo/gllug