Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

(Ovid) Re: Simple Anti-Spam Device

by Ovid (Cardinal)
on Jun 20, 2001 at 02:33 UTC ( #89850=note: print w/replies, xml ) Need Help??


in reply to Simple Anti-Spam Encoder

Hey, that's a nice trick and I like it. Just one thing I'm wondering about: your &unpackEmail sub does HTML encoding of the characters. Why not have the line

my @codes = unpackEmail( $input );

Changed to:

use HTML::Entities; my @codes = map{ encode_entities( $_, '\x00-\xff' ) } split//, $in +put;

If I understood your code correctly, you could then drop your unpackEmail sub.

Cheers,
Ovid

Update: I forgot to mention, if you want to get rid of all HTML, you can change this:

my $link = '<a href="mailto:' . "$mailto" . '">' . "$mailto</a>"; # to this: my $link = a( { -href => $mailto }, $mailto );

I can't wait to email the link to your code to a bunch of my friends (yes, even Ovid has friends). It's a really, really nice trick.

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://89850]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (4)
As of 2021-04-19 05:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?