Like liverpole, I am not sure what it is you require. Perhaps you need to use the 4 argument form of splice to, in effect, replace an element without changing it's position.

use strict; use warnings; # Set up arrays, use hash to find elements of # @arrB not duplicated in @arrA. # my @arrA = (1, 2, 3, 4); my @arrB = (1, 5, 3, 6, 8, 2, 4); my %hashA; @hashA{@arrA} = (); my @nonDup = grep { not exists $hashA{$_} } @arrB; # Show arrays. # print qq{Before\n}, qq{@arrA\n}, qq{@arrB\n}, qq{@nonDup\n}; # Look to replace value 3 in @arrA. Loop over @arrA # to find the element we want. # my $toReplace = 3; foreach my $idx ( 0 .. $#arrA ) { next unless $arrA[$idx] == $toReplace; # Use splice to take the found element out of # @arrA and replace it with one randomly splice'ed # out of @nonDup. # splice @arrA, $idx, 1, splice @nonDup, int rand @nonDup, 1; last; } # Show what we have now. # print qq{After\n}, qq{@arrA\n}, qq{@arrB\n}, qq{@nonDup\n};

The output is

Before 1 2 3 4 1 5 3 6 8 2 4 5 6 8 After 1 2 6 4 1 5 3 6 8 2 4 5 8

Note that I use only three arguments for the second splice as we do not need to replace the element taken out of @nonDup.

I hope this guess is something close to what you need and will be helpful.

Cheers,

JohnGG


In reply to Re: replacing order element in array by johngg
in thread replacing order element in array by scoobyrico

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.