Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re^4: Array question

by ww (Archbishop)
on Jun 15, 2008 at 02:29 UTC ( #692121=note: print w/replies, xml ) Need Help??


in reply to Re^3: Array question
in thread Array question

++, sgifford and many thanks!

And, note the clarity (and, in this case, the particularity and relevance) of sgifford's explanation, as contrasted with

perldoc -f splice splice ARRAY,OFFSET,LENGTH,LIST splice ARRAY,OFFSET,LENGTH splice ARRAY,OFFSET splice ARRAY Removes the elements designated by OFFSET and LENGTH from an array, and replaces them with the elements of LIST, if any. I +n list context, returns the elements removed from the array. In scalar context, returns the last element removed, or "undef" +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 everythin +g from OFFSET onward. If LENGTH is negative, removes the elemen +ts 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 issu +es 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] = $y splice(@a,$i,1,$y) Example, assuming array lengths are passed before arrays: sub aeq { # compare two list values my(@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)) { ... }

For me (and for others?) the first sentence, Removes the elements designated by OFFSET and LENGTH from an array, and replaces... certainly does nothing to suggest that splice provides this elegant alternative to the overhead and verbosity of my lines 24..28 (above). Again, ++!

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://692121]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (3)
As of 2023-06-06 19:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How often do you go to conferences?






    Results (29 votes). Check out past polls.

    Notices?