countdown to U1e9

This is my first (and probably last) JAPH. I didn't go crazy with it -- I was making something useful for myself and got carried a little away. It's only useful to you if you're concerned about unix time values rolling over in september of this year (thanks merlyn .. i got the idea from your webpage). Direct comments are OK if anyone has any:

perl -e '$output=pack("C*",10,109,121,32,36,110,111,119,61,116,105,109
+,101,40,41,59,10,109,121,32,36,116,97,114,103,101,116,61,39,49,48,48,
+48,48,48,48,48,48,48,39,59,10,109,121,32,40,36,115,101,99,44,36,109,1
+05,110,44,36,104,114,115,44,36,100,111,109,44,36,109,111,110,44,36,12
+1,101,97,114,44,36,119,100,97,121,44,36,121,100,97,121,44,36,105,115,
+100,115,116,41,61,108,111,99,97,108,116,105,109,101,40,36,116,97,114,
+103,101,116,32,45,32,36,110,111,119,41,59,10,109,121,32,36,110,111,11
+9,95,115,116,114,105,110,103,61,108,111,99,97,108,116,105,109,101,40,
+116,105,109,101,40,41,41,59,10,109,121,32,36,116,97,114,103,101,116,9
+5,115,116,114,105,110,103,61,108,111,99,97,108,116,105,109,101,40,36,
+116,97,114,103,101,116,41,59,10,109,121,32,36,109,101,115,115,97,103,
+101,61,113,113,123,116,111,100,97,121,32,105,115,32,36,110,111,119,95
+,115,116,114,105,110,103,92,110,36,109,111,110,32,109,111,110,116,104
+,115,32,36,100,111,109,32,100,97,121,115,32,36,104,114,115,32,104,111
+,117,114,115,32,36,109,105,110,32,109,105,110,117,116,101,115,32,36,1
+15,101,99,32,115,101,99,111,110,100,115,32,108,101,102,116,32,116,105
+,108,108,32,85,49,101,57,32,40,36,116,97,114,103,101,116,95,115,116,1
+14,105,110,103,41,92,110,74,117,115,116,32,97,110,111,116,104,101,114
+,32,80,101,114,108,32,72,97,99,107,101,114,92,110,115,99,111,111,112,
+101,114,92,64,97,98,115,111,108,117,116,101,109,97,100,110,101,115,11
+5,46,99,111,109,92,110,125,59,10,112,114,105,110,116,32,36,109,101,11
+5,115,97,103,101,59,10);eval $output;'
[download]

Hope it still runs after going through the system. It's my first post here :-)

Comment on countdown to U1e9 Download Code

Replies are listed 'Best First'.
Re: countdown to U1e9 by BooK (Curate) on Jul 12, 2001 at 01:27 UTC
This section is about obfuscation, not about the chr function... Furthermore, obfuscated code often tends to compress code, rather than expanding it (by a factor of 3.7, if I did count correctly)... I won't mention other things, like elegance, artistry, clever use of little known features, etc... `printf $message, scalar(localtime), localtime($then - time), scalar localtime $then;` [download] Pretty clever, indeed.	[reply] [d/l]
Re: Re: countdown to U1e9 by Anonymous Monk on Jul 12, 2001 at 06:51 UTC
Yep. It could be more compressed, and a lot more esoteric. But the point is the countdown to U1e9. I wanted obvious (KISS), not really obfuscated -- it's the message that counts.	[reply]
Re: Re: Re: countdown to U1e9 by BooK (Curate) on Jul 13, 2001 at 12:47 UTC
I understand. But obvious doesn't belong to this section (obviously). `;-)` This is supposed to be obfuscated. The message is less important than how you manage to print it. Look at the message all (sometimes not much more obfuscated than your own) the others print: "Just another Perl hacker". Frankly, that isn't an interesting message at all. The trick in your code is that you count the delay as an offset to Jan 1, 1970. So you could get the difference in month, years, etc. with very simple calculation (none), since everything is done by `localtime`. That can be useful to others, and would be better explained in a section like Snippets or Cool Uses for Perl. A lot of people are suspicious about obfuscation (I wonder why.) and might not learn this trick if it's hidden here. By the way, you should get a username. You'd get more out of the site if the site could remember you.	[reply]
Re: countdown to U1e9 by miyagawa (Chaplain) on Jul 10, 2001 at 14:02 UTC
see also Dunce::time, fixing 10-digit time problem :)	[reply]


Perl-Sensitive Sunglasses
	PerlMonks