Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[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" ;