Print my name

No, I'm not an egoist. I just wanted a new signature and I ended up like this. Tested on Linux with perl 5.6.1 Y2k and -w compilant. :-)

=pod $_='24041904-17+2300-17000100-18'
=cut
open+$|<=>$-;eval
substr((<0>)[+$[]=>$=/12);y s-sssddd;s;
(\d\d);
chr($=*1.617+$1)
;sxoxexgi&&y-x+y-B P-s,print,$%||print$/,
[download]

<-- z0d -->

Comment on Print my name Select or Download Code
Re: Print my name by tachyon (Chancellor) on Jul 22, 2001 at 14:52 UTC
Hi almost the whole obfu is fluff - ie it does SFA. It took me a while to work this out BTW :-) The only line that does anything that effects the result is this: `print $/, <-- zOd -->;` [download] cheers tachyon Feel free to deconstruct my sig. Check out MeowChow and japhy for some truly beautific obfuscation. Back to my own mundane mediocrity. s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print	[reply] [d/l]
Re: Re: Print my name by z0d (Hermit) on Jul 22, 2001 at 17:41 UTC
The '<-- z0d -->' stuff is my signature. It's not part of the code. It prints the string 'Peter Barabas'. `<-- z0d -->`	[reply] [d/l]
Re: Re: Re: Print my name by tachyon (Chancellor) on Jul 23, 2001 at 03:07 UTC
In that case it is broken under Win32 as it prints --zod-- as noted. A problem with the defaults no doubt. cheers tachyon s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print	[reply]
Re: Re: Re: Re: Print my name by z0d (Hermit) on Jul 23, 2001 at 03:57 UTC


Think about Loose Coupling
	PerlMonks

Print my name

The best material for plates (tableware) is: