Re: [SLUG] Perl Madness

From: Doug Koobs (dkoobs@dkoobs.com)
Date: Fri Aug 15 2003 - 19:44:13 EDT


Dylan William Hardison wrote:

>Perl doesn't have to unreadable. ;)
>
>#!/usr/bin/perl
>use strict;
>use warnings;
>
>my $prefix = qr/>\s+?/;
>my $start = qr/-{71}/;
>my $end = quotemeta('official policy or position of NKS or any of its employees.');
># Alternativly, set $end to ''.
>
>while ($_ = readline ARGV) {
> print unless (/^$prefix*? $start $/xm .. /^$prefix*? $end $/xm);
>}
>
uhoh.... If that is readable, I must be illiterate!!! :)

-----------------------------------------------------------------------
This list is provided as an unmoderated internet service by Networked
Knowledge Systems (NKS). Views and opinions expressed in messages
posted are those of the author and do not necessarily reflect the
official policy or position of NKS or any of its employees.



This archive was generated by hypermail 2.1.3 : Fri Aug 01 2014 - 17:22:59 EDT