### Re: (Ab)Using substr

```
On Thursday, May 10, 2001, at 12:24  PM, Robin Houston wrote:

On Thu, May 10, 2001 at 09:16:25AM +0100, Cross David - dcross wrote:
#!/usr/bin/perl -w   # how to (ab)use substr
use strict;
my \$pi='3.14159210535152623346475240375062163750446240333543375062';

Well, it's more just taking advantage of the fact that most people
don't know more than six decimal places of Pi :-)

Well, Dave *did* say

my \$pi

It's not the official one.

Marcel

--
service us. Surrender your beer. Resistance is futile.
-- London.pm strategy aka embrace and extend aka mark and sweep

```

### (Ab)Using substr

```
Mentioned this in passing to Piers and Leon last night and they seemed
interested enough to justify posting it here. It's not mine :)

#!/usr/bin/perl -w   # how to (ab)use substr
use strict;

my \$pi='3.14159210535152623346475240375062163750446240333543375062';

substr (\$^X,0)=
substr   (\$pi,-6);map{
substr (\$^X,\$.++,1)=chr(
substr(\$pi,21,2)+
substr(\$pi,\$_,2))}(12,28,-18,-6,-10,14);map{\$^O=\$x(
substr (\$pi,-5,2));
substr   (\$^O,sin(++\$a/8)*32+
substr (\$pi,-2)/2+1,1)=\$_;
substr   (\$^O,sin(\$a/4)*(
substr (\$pi,2,2))+
substr  (\$pi,-7,-5)-1,1)=\$_;print\$^O\$/;eval(\$^X.('\$b,'x3).
substr  (\$pi,-3,1).'.'.
substr (\$pi,9,2));}(map{chr(\$_+
substr   (\$pi,21,2))}(
substr (\$pi,8)x3)=~/../g);

For more discussion (including and explaination) see
http://perlmonks.org/index.pl?node_id=77619.

Dave...

--

The information contained in this communication is
confidential, is intended only for the use of the recipient
named above, and may be legally privileged. If the reader
of this message is not the intended recipient, you are
hereby notified that any dissemination, distribution or
copying of this communication is strictly prohibited.
re-send this communication to the sender and delete the
original message or any copy of it from your computer
system.

```

### Re: (Ab)Using substr

```
On Thu, May 10, 2001 at 09:16:25AM +0100, Cross David - dcross wrote:
#!/usr/bin/perl -w   # how to (ab)use substr
use strict;
my \$pi='3.14159210535152623346475240375062163750446240333543375062';

Well, it's more just taking advantage of the fact that most people
don't know more than six decimal places of Pi :-)

Actually it is a thing of great beauty.

.robin.

--
Flee to me, remote elf!

```

### RE: (Ab)Using substr

```
From: Robin Houston [EMAIL PROTECTED]
Sent: Thursday, May 10, 2001 11:25 AM

On Thu, May 10, 2001 at 09:16:25AM +0100, Cross David - dcross wrote:
#!/usr/bin/perl -w   # how to (ab)use substr
use strict;
my \$pi='3.14159210535152623346475240375062163750446240333543375062';

Well, it's more just taking advantage of the fact that most people
don't know more than six decimal places of Pi :-)

Yeah. That was pointed out on perlmonks.

Actually it is a thing of great beauty.

It is, isn't it. It was written by Stephen Jenkins, the same chap that wrote
the camel code on the ThinkGeek tshirt
http://www.thinkgeek.com/stuff/things/321a.html.

He posts on Perlmonks under the name Erudil and _all_ of his posts are worth
checking out.

Dave...

--

The information contained in this communication is
confidential, is intended only for the use of the recipient
named above, and may be legally privileged. If the reader
of this message is not the intended recipient, you are
hereby notified that any dissemination, distribution or
copying of this communication is strictly prohibited.
re-send this communication to the sender and delete the
original message or any copy of it from your computer
system.

```

### Re: (Ab)Using substr

```
On Thu, May 10, 2001 at 09:16:25AM +0100, Cross David - dcross wrote:
Mentioned this in passing to Piers and Leon last night and they seemed
interested enough to justify posting it here. It's not mine :)

My god, that's gorgeous.  I think I'm going to cry...

dha
--
David H. Adler - [EMAIL PROTECTED] - http://www.panix.com/~dha/
Perl can certainly be used as a first computer language, but it was
really designed to be a *last* computer language. - Larry Wall

```