[REBOL] Re: footer on Joel's email
From: joel::neely::fedex::com at: 15-Mar-2002 22:04
Hi, Adrian,
Copy-and-paste it into your REBOL console (if you're willing
to trust me! ;-) or into a file that you can DO from the
REBOL console. Alternately, you can run that same file in
Perl.
The goofy looking string at the end is just an anti-spam
encoding of my email address. The rest of it is decoding
script that works in both languages. I couldn't pass up
the opportunity to combine four of my favorite things:
- REBOL
- Perl
- programming puzzles
- making life harder for spammers
;-)
-jn-
Adrian wrote:
> I can`t figure it out, can you explain?
>
> ; sub REBOL {}; sub head ($) {@_[0]}
> REBOL []
> # despam: func [e] [replace replace/all e ":" "." "#" "@"]
> ; sub despam {my ($e) = @_; $e =~ tr/:#/.@/; return "\n$e"}
> print head reverse despam "moc:xedef#yleen:leoj" ;
>
--
; sub REBOL {}; sub head ($) {@_[0]}
REBOL []
# despam: func [e] [replace replace/all e ":" "." "#" "@"]
; sub despam {my ($e) = @_; $e =~ tr/:#/.@/; return "\n$e"}
print head reverse despam "moc:xedef#yleen:leoj" ;