Re: (Golf) Segfault Perl

Going through perlvar, I found this. It segfaults, depending on how exactly Perl was compiled, and maybe a few more things...

        12345678901234567
perl -e'$^M=1;$x[1<<30]=2'
[download]

Thrill as memory leaks away! Laugh as Perl attempts to recover using a single byte of memory! (Cry if your Perl was compiled without this silly feature.)

Comment on Re: (Golf) Segfault Perl Download Code

Replies are listed 'Best First'.

Re: Re: (Golf) Segfault Perl
by Juerd (Abbot) on Apr 04, 2002 at 12:28 UTC

perl -e'$^M=1;$x[1<<30]=2'

Segfaults without setting $^M too.

#2345678901
$x[1<<30]=2
[download]

U28geW91IGNhbiBhbGwgcm90MTMgY
W5kIHBhY2soKS4gQnV0IGRvIHlvdS
ByZWNvZ25pc2UgQmFzZTY0IHdoZW4
geW91IHNlZSBpdD8gIC0tIEp1ZXJk

[reply]
[d/l]

Re: Re: Re: (Golf) Segfault Perl

by japhy (Canon) on Apr 05, 2002 at 14:52 UTC

$x[~0/2]=1

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a (from-home) job
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

[reply]
[d/l]

(MeowChow) Re4: (Golf) Segfault Perl

by MeowChow (Vicar) on Apr 05, 2002 at 20:06 UTC

.
.
(root@tiger:~)$ perl -e'$x[2147483645]++'
Out of memory!
(root@tiger:~)$ perl -e'$x[2147483646]++'
Out of memory!
(root@tiger:~)$ perl -e'$x[2147483647]++'
Segmentation fault
(root@tiger:~)$ perl -e'$x[2147483648]++'
Modification of non-creatable array value attempted, subscript -214748
+3648 at -e line 1.
(root@tiger:~)$ perl -e'$x[2147483649]++'
Modification of non-creatable array value attempted, subscript -214748
+3647 at -e line 1.
.
.
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

[reply]
[d/l]


Pathologically Eclectic Rubbish Lister
	PerlMonks