Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: Re: (Golf) Segfault Perl

by Juerd (Abbot)
on Apr 04, 2002 at 12:28 UTC ( [id://156639]=note: print w/replies, xml ) Need Help??


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

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://156639]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others scrutinizing the Monastery: (5)
As of 2024-04-23 16:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found