Re: Search and Replace Elements from 1 array to another.

[Riales]

Does your code compile? O.o

Anyways, I think you might be overcomplicating things. This seems to do what you want:

my @stu = (
    '103_dsu 1 35 nbu103',
    '104_dsu 1 35 nbu104',
    '204_tape 1 1 ACS1',
    '101_dsu 1 35 nbu101',
);

my @dp = (
    'nbu103 Disk 6 -1',
     'nbu104 Disk 6 -1',
    'nbu101 Disk 6 -1',
);

foreach my $stu (@stu) {
    my (undef, undef, undef, $possible) = split ' ', $stu;
    my ($matched_dp) = grep {
        my ($dp) = split ' ', $_;
        $dp eq $possible
    } @dp;

    $stu = $matched_dp if $matched_dp;
}

use Data::Dumper;
print Dumper(@stu);

[skp]

Thanks! That is what I was looking for. One addition needed is that if a match was found it would replace the match along with the rest of the pre split element if possible.

Apologies for not wording that better.

Current output
$VAR1 = 'nbu103 Disk 6 -1';
$VAR2 = 'nbu104 Disk 6 -1';
$VAR3 = '204_tape 1 1 ACS1';
$VAR4 = 'nbu101 Disk 6 -1';

Needed output 
$VAR1 = '103_dsu 1 35 nbu103 Disk 6 -1';
$VAR2 = '104_dsu 1 35 nbu104 Disk 6 -1';
$VAR3 = '204_tape 1 1 ACS1';
$VAR4 = '101_dsu 1 35 nbu101 Disk 6 -1';

[Riales]

Shouldn't be much of a change. The only somewhat tricky part might be a fancier use of split in order to avoid having to concatenate the first few values together after splitting them previously. I think this should work:

# Instead of the existing split in the code I wrote...
my ($pre, $possible) = split / ([^ ]+)$/, $stu;

That way, you can just concatenate $pre to the beginning of $matched_dp when you assign to $stu.

As a sidenote, am I the only one that was surprised to find that Perl does not have an rsplit function? This is possibly the first time I've found myself thinking 'Gee, if this were Python...' :P