A first attempt

I made this code to amuse myself, and didn't feel like rewriting it, so I apologize for the arrogance it says when executed... I know it's not too good, but I wrote it after _just_ learning the basics of the language... so yeah sorry... I'm really not that egotistical... not that anyone would want to copy it, or that I really have any claim to copyright, but it's in the public domain

$a=116.110.101;$b=112.114.101;$c=115.108.97;$d=116.097.102;$g=32.00.00
+;reverse($a);reverse($b);reverse($c);reverse($d);$e=$a.$b.$c.$d;$e=re
+verse($e);print$e.$g;@z=split(//,$e);$f=119.121.111.117;@n=split(//,$
+f);print$z8.$n[0].$z10.z5.$g.$n1.$n2.$n3."\n"; print"A PD work.\n";
[download]

EDIT: Working code is below:

$a=116.110.101;$b=112.114.101;$c=115.108.97;$d=116.097.102;$g=32.00.00
+;reverse($a);reverse($b);reverse($c);reverse($d);$e=$a.$b.$c.$d;$e=re
+verse($e);print$e.$g;@z=split(//,$e);$f=119.121.111.117;@n=split(//,$
+f);print$z[8].$n[0].$z[10].$z[5].$g.$n[1].$n[2].$n[3]."\n";
[download]

Comment on A first attempt Select or Download Code

Replies are listed 'Best First'.
Re: A first attempt by jdalbec (Deacon) on Jun 18, 2006 at 15:16 UTC
I think you mean: `$a=116.110.101;$b=112.114.101;$c=115.108.97;$d=116.097.102;$g=32.00.00 +;reverse($a);reverse($b);reverse($c);reverse($d);$e=$a.$b.$c.$d;$e=re +verse($e);print$e.$g;@z=split(//,$e);$f=119.121.111.117;@n=split(//,$ +f);print$z[8].$n[0].$z[10].$z[5].$g.$n[1].$n[2].$n[3]."\n"; print"A P +D work.\n";` [download] (I added the missing square brackets and a missing dollar sign.)	[reply] [d/l]
Re^2: A first attempt by fatalserpent (Initiate) on Jun 19, 2006 at 03:54 UTC
That's weird... I know the code executed when I wrote it...	[reply]
Re: A first attempt by zerogeek (Monk) on Jun 19, 2006 at 09:02 UTC
OK, I'll bite... I don't understand how/why the scalars are getting alpha characters assigned to them from the numbers input. Please help for those of us that have only gotten through the llama! EDIT: What causes it to 'translate' to the chars? i.e. What if I wanted the $a to store the IP address 1.2.3.4?	[reply]
Re^2: A first attempt by jdalbec (Deacon) on Jun 19, 2006 at 23:08 UTC
It's called a version string. Any "number" with more than one decimal point is converted to the corresponding characters. This is deprecated, but all's fair in obfuscation. There's no "IP address" type in Perl. What are you doing with the IP address? If you need a packed IP address, 1.2.3.4 will work, but the accepted way to do this is `use Socket; $a = inet_aton("1.2.3.4");` [download] If you want the string "1.2.3.4" then use quotation marks.	[reply] [d/l]
Re^3: A first attempt by zerogeek (Monk) on Jun 20, 2006 at 01:22 UTC
Thanks for the info. I was only using the IP address as a "what if". For example, I could imagine a situation where I might have the following: $string = "My IP address is 10.1.1.1!\n" Or, better yet, what if I had a function that grabbed my current IP address (let's call it $IP) and then I changed the above to: $string = "My current IP address is $IP\n" Thanks in advance, I'm just trying to grasp this more fully. It is certainly a neat item to mess around with... Also, is this discussed in any of the O'Reilly Perl books? Mine are at work right now, but I'll page through them when I go in tonight.	[reply]
Re^2: A first attempt by fatalserpent (Initiate) on Jun 20, 2006 at 01:11 UTC
I only finished the Perl wikibook (which is woefully incomplete and can be found here) when I wrote this... I also looked at some obfuscated code...	[reply]


Just another Perl shrine
	PerlMonks