On Tue, Jun 21, 2005 at 10:10:30AM -0400, James Ebright wrote:
> I am not sure if either of the above would break anything as perl is pretty
> forgiving of these things. However, you might consider substituting on
> whitespace like so:
>
> $lc_subject =~ s/\s/./g;
>
> which will squish multiple spaces down to a single dot, this might make your
> source file smaller as well and would handle tabs as well.
Actually, that should read:
$lc_subject =~ s/\s+/./g;
"\s" just matches one space character, \s+ matches a sequence of space
characters.
--
#!perl -wpl # mmfppfmpmmpp mmpffm <[EMAIL PROTECTED]>
$p=3-2*/[^\W\dmpf_]/i;s.[a-z]{$p}.vec($f=join('',$p-1?chr(sub{$_[0]*9+$_[1]*3+
$_[2]}->(map{/p|f/i+/f/i}split//,$&)+97):qw(m p f)[map{((ord$&)%32-1)/$_%3}(9,
3,1)]),5,1)='`'lt$&;$f.eig; # Jan-Pieter Cornet
_______________________________________________
Visit http://www.mimedefang.org and http://www.roaringpenguin.com
MIMEDefang mailing list
[email protected]
http://lists.roaringpenguin.com/mailman/listinfo/mimedefang
