Wandering around the monestary I've noticed some clever sigs Monks use composed of perl oneliners or snippets. I sometimes use the obfuscated: 
perl -e'$_="jason carter";
?\s\w+?;$@=pack"h*","0246275616d65627";
s.a.u.;s#on#t#;s,c,,;s|r|no|;s~e~h$&~;
print"$_ $^X$@$/";'

[download]
It contains my name and a twist on JAPH. I thought it would be neat to use this thread to compile and showcase people's different attempts at clever/obfuscated sigs for emails, posts or whatever... Cheers!

Replies are listed 'Best First'.
Re: Clever Perl Sigs
by Ovid (Cardinal) on Oct 23, 2002 at 20:24 UTC

    My current email signature:

    Someone asked me how to count to 10 in Perl:
push@A,$_ for reverse q.e...q.n.;for(@A){$_=unpack(q|c|,$_);@a=split//
+;
shift@a;shift@a if $a[$[]eq$[;$_=join q||,@a};print $_,$/for reverse @
+A

    [download]

    Cheers,
    Ovid

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

[reply]
[d/l]
Re: Clever Perl Sigs
by diotalevi (Canon) on Oct 23, 2002 at 19:29 UTC

    And of course I like my sig because it's both an example of how to use B and it also reads directly from memory in perl-space to find the address of the currently executing code-block. It's sort of like a map in a mall except that the arrow points to your current lexically scoped block. Nifty. Or I think so anyway.

    __SIG__
use B;
printf "You are here %08x\n", unpack "L!", unpack "P4", pack
  "L!", B::svref_2object(sub{})->OUTSIDE;

    [download]
[reply]
[d/l]
Re: Clever Perl Sigs
by thelenm (Vicar) on Oct 23, 2002 at 18:15 UTC
    I have my e-mail client set up to call a Perl script (what else?) that returns a random JAPH signature that I've written. There are a few that it chooses from, but my favorite is the one I posted in Just Another JAPH.

    -- Mike

    --
    just,my${.02}

[reply]

Back to Meditations