Array splice

code-ninja has asked for the wisdom of the Perl Monks concerning the following question:

This may seem a stupid question but one of the Monastery's quotes say that "A stupid question is a question not asked."

Having said that, I'm working on making Perl my preferred programming language. Right now, I'm an accomplished C programmer but I want some change... whatever, back to the point.

#!/usr/bin/perl

use strict;
use warnings;

my @arr = (
    "hello to humans",
    "of planet Earth.",
);

my @new = (
    "I am here to annihilate you all so",
    "please co-operate. It is in accordance with the Galactic council.
+",
);

splice(@arr, scalar(@arr), 0, @new);

print "@arr\n";
[download]

the "splice" line is essentially push(@arr, @new) right? From C perspective, it is basically strcpy(arr, new) where "arr" and "new" are C arrays.

Again from a C perspective, let *(arr + n) (for some n) point to the location past the last entry of array "arr". If I say strcpy((arr + n), new) I'll get a seg fault (obviously!). But when I do splice(@arr, scalar(@arr), n, @new) I do not get the seg fault.

Why I think it should seg fault?

Simple, scalar(@arr) takes me to the last position in the array "arr" and the third argument to splice is the length. Now, my length is exceeding the length of the array "arr" hence I'm trying to access the something out of bounds, therefore it should seg fault.

Whats the story, morning glory?!

Comment on Array splice Select or Download Code

Replies are listed 'Best First'.
Re: Array splice by choroba (Cardinal) on Aug 30, 2013 at 07:25 UTC
Splicing with length 0 at offset 0 prepends before the first element. Splicing with length 0 at offset $#arr inserts before the last element. Splicing with length 0 at offset @arr inserts after the last element. Splicing at offset > @arr issues a warning: If OFFSET is past the end of the array, Perl issues a warning, and splices at the end of the array. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply]
Re: Array splice by hdb (Monsignor) on Aug 30, 2013 at 07:20 UTC
Well, if you just say `my @array; $array[12] = 5;` [download] Perl silently assumes that you mean what you say and allocates sufficient memory to satisfy your wishes. (This has the potential downside that it allocates lots of memory and copies lots of data around if you are not careful.) Why do you refer to `strcpy` in your example? As far as I remember this copies strings and not arrays in C?	[reply] [d/l] [select]
Re^2: Array splice by AnomalousMonk (Archbishop) on Aug 30, 2013 at 16:28 UTC
Just to illustrate hdb's point that Perl's arrays are dynamic — and also that Perl supports negative indexing, which C doesn't like (other than a negative index of -1 for some reason, IIRC). `>perl -wMstrict -le "my @array; print 'elements in array: ', scalar @array; ;; $array[1_000_000] = 42; print 'elements in array: ', scalar @array; ;; $array[-2] = 41;; print qq{elements at end of array: @array[ -2 .. -1 ]}; " elements in array: 0 elements in array: 1000001 elements at end of array: 41 42` [download] Update: Changed example code.	[reply] [d/l]
Re^2: Array splice by code-ninja (Scribe) on Aug 30, 2013 at 07:27 UTC
I refer to strcpy because it was kinda analogous to what I wanted to ask that's all.	[reply]
Re: Array splice by DrHyde (Prior) on Aug 30, 2013 at 12:05 UTC
The reason it doesn't segfault is the same as the reason you never have to malloc() or free() anywhere in perl code: perl handles all the memory allocation for you behind the scenes. Perl arrays (and strings, and hashes) will all grow to fit whatever you stuff into them.	[reply]