Watch that whitespace

This has been tested on a Win32 system only. Results may vary.

#!/usr/bin/perl
# What is this?  Is this a JAPH or is it not?
# Perhaps it's just a little jest.  Unless... it's all just a red herr
+ing!!
$|=0;open(F,"$0");foreach $pos (47,67,86,102,49,33,19,59,133,116,128,1
+38){seek(F
,$pos,0);print(oct(hex(sin(cos($pos)))))unless(int(cos($pos))+1);print
+(getc(F));
while($|){print(chr(sqrt($pos)))}print(chr(reverse(pack(c,$pos))))if((
+int(sqrt((
25*3/15)+31))-6));}close(F);
[download]

Spacewarp

DISCLAIMER:
Use of this advanced computing technology does not imply an endorsement
of Western industrial civilization.

Comment on Watch that whitespace Download Code

Replies are listed 'Best First'.
Re: Watch that whitespace by satchboost (Scribe) on Apr 07, 2001 at 00:55 UTC
Unfortunately, your JAPH counts #!/usr/bin/perl as part of its filepos numbers. Perl on my system is #!/opt/gnu/bin/perl5.6.0, which means, unfortunately, your JAPH doesn't work. :( Also, whitespace at the end of a line doesn't come through. (I ran into this in my last JAPH.) It is neat, though. Kudos.	[reply]
Re: Re: Watch that whitespace by spacewarp (Pilgrim) on Apr 07, 2001 at 02:23 UTC
I know it does, hence the message re variance. Heck, Win32 systems don't even use the #!/usr/bin/perl line at all, so it was completely superfolous on the system it was created on. I just needed some more filler, really. 8) And there isn't any whitespace after the lines; that's rather the point: characters within a comment are relevant to the correct operation of the program in this case! 8) Spacewarp DISCLAIMER: Use of this advanced computing technology does not imply an endorsement of Western industrial civilization.	[reply]