in reply to Re^5: Replace a value with another value from the same array
in thread Replace a value with another value from the same array

If there are multiple YYK entries, my code still works. It'll just use the first one it finds. If you'd rather use the last YYK entry then just comment out:

    last;

[download]

And you still only have a single pass.

Replies are listed 'Best First'.
Re^7: Replace a value with another value from the same array
by huck (Prior) on May 10, 2017 at 06:51 UTC 

    use strict; use warnings; 
my $data=[]; 
$data->[0]={code=>'YYK',expdate=>'fixme'}; 
$data->[1]={code=>'YYK',expdate=>'fixme'}; 
$data->[2]={code=>'YYK',expdate=>'fixme'}; 
$data->[3]={code=>'YYK',expdate=>'fixme'}; 
$data->[4]={code=>'YYK',expdate=>'fixme'}; 
$data->[5]={code=>'XXY',expdate=>'fixer'}; 
$data->[6]={code=>'YYK',expdate=>'fixme'}; 
$data->[7]={code=>'YYK',expdate=>'fixme'}; 

my ($xxy, $yyk);
for (@$data) {
  $xxy = $_ if $_->{code} eq 'XXY';
  $yyk = $_ if $_->{code} eq 'YYK';
  if ($xxy && $yyk) {
    $yyk->{expdate} = $xxy->{expdate};
    last;
  }
}

use Data::Dumper; 
print Dumper($data);

    [download]
    $VAR1 = [
          {
            'expdate' => 'fixme',
            'code' => 'YYK'
          },
          {
            'code' => 'YYK',
            'expdate' => 'fixme'
          },
          {
            'expdate' => 'fixme',
            'code' => 'YYK'
          },
          {
            'expdate' => 'fixme',
            'code' => 'YYK'
          },
          {
            'expdate' => 'fixer',
            'code' => 'YYK'
          },
          {
            'code' => 'XXY',
            'expdate' => 'fixer'
          },
          {
            'code' => 'YYK',
            'expdate' => 'fixme'
          },
          {
            'expdate' => 'fixme',
            'code' => 'YYK'
          }
        ];

    [download]
    Wasnt the first one it found in index 0?

[reply]
[d/l]
[select]

      Ah yeah. I was thinking of multiple XXY entries.

[reply]

In Section Seekers of Perl Wisdom