in reply to Re: (Golf) Segfault Perl
in thread (Golf) Segfault Perl

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

Segfaults without setting $^M too. 

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

[download]

U28geW91IGNhbiBhbGwgcm90MTMgY
W5kIHBhY2soKS4gQnV0IGRvIHlvdS
ByZWNvZ25pc2UgQmFzZTY0IHdoZW4
geW91IHNlZSBpdD8gIC0tIEp1ZXJk

Replies are listed 'Best First'.
Re: Re: Re: (Golf) Segfault Perl
by japhy (Canon) on Apr 05, 2002 at 14:52 UTC
    Shave another byte: $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]
      Interesting:
        
      .
.
(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]

In Section Meditations