Removes the elements designated by OFFSET and LENGTH from an array, and replaces them with the elements of LIST, if any. In list context, returns the elements removed from the array. In scalar context, returns the last element removed, orundef if no elements are removed. The array grows or shrinks as necessary. If OFFSET is negative then it starts that far from the end of the array. If LENGTH is omitted, removes everything from OFFSET onward. If LENGTH is negative, removes the elements from OFFSET onward except for -LENGTH elements at the end of the array. If both OFFSET and LENGTH are omitted, removes everything. If OFFSET is past the end of the array, perl issues a warning, and splices at the end of the array.
The following equivalences hold (assuming$[ == 0 and $#a >= $i )
push(@a,$x,$y)splice(@a,@a,0,$x,$y)pop(@a)splice(@a,-1)shift(@a)splice(@a,0,1)unshift(@a,$x,$y)splice(@a,0,0,$x,$y)$a[$i] = $ysplice(@a,$i,1,$y)Example, assuming array lengths are passed before arrays:
sub aeq {# compare two list valuesmy(@a) = splice(@_,0,shift);my(@b) = splice(@_,0,shift);return 0 unless @a == @b;# same len?while (@a) { return 0 if pop(@a) ne pop(@b);}return 1; } if (&aeq($len,@foo[1..$len],0+@bar,@bar)) { ... }Perldoc Browser is maintained by Dan Book (DBOOK). Please contact him via theGitHub issue tracker oremail regarding any issues with the site itself, search, or rendering of documentation.
The Perl documentation is maintained by the Perl 5 Porters in the development of Perl. Please contact them via thePerl issue tracker, themailing list, orIRC to report any issues with the contents or format of the documentation.