配列の要素をその値に基づいて置き換えることはできますか？要素番号ではなく配列の2つの新しい要素を置き換える方法はありますか？

Question

私はPerlでのプログラミングだ、と私は、このような@contentsとして、私は、このような@contents=(A,S,D,F,M,E)として配列を持っていると私は2つの新しい要素XとY持つ要素Mを交換したいような状況にいるよ(A,S,D,F,X,Y,E)に等しくなります。

Answer 1

mapを使用できます。

@contents = map { $_ eq 'M' ? ('X','Y') : $_ } @contents; 

それとも、spliceを使用することができます。

for (0 .. $#contents) { 
    if ($contents[$_] eq 'M') { 
     splice @contents, $_, 1, 'X', 'Y'; 
    } 
} 

あなたはperlのバージョン5.12およびアップを使用している場合にも、インデックスのリストとしてkeys @contentsを使用することにより、さらに簡素化することができます。

Answer 2

あなたが探しているコマンドはspliceです。

#!/usr/bin/perl -wT 
use strict; 

my @contents = qw(A S D F M E); 
my $match = 'M'; 
my @replace = qw(X Y); 
my $arrlen = @contents; 

for (my $i = 0; $i < $arrlen; $i++) 
{ 
    if ($contents[$i] eq $match) 
    { 
     splice (@contents, $i, 1, @replace); 
     last; 
    } 
} 

print "$_\n" foreach (@contents);