замена элементов массива Perl

Question

Я пытаюсь заменить элемент в моем массиве, и мой код, похоже, не работает.

my @wholeloop = (split //, $loop);  
     for my $i (0 .. $#wholeloop) { 
      if ($wholeloop[$i] eq "i") { 
      $wholeloop[$i] =~ htmlinsert($offset); 
      $offset++ 
      } 
     } 

Я читал о проблематике делать вещи в то время как итерацию через массив, возможно, есть лучшее решение -> Я пытаюсь заменить конкретное occurencies символа в строке, массив, казался, как разумные инструмент для использования. Большое спасибо.

Answer 1

Обычно - когда итерация на петле, вам не нужно делать это с помощью:

for (0..$#array) { 

Поскольку

for (@array) { 

будет делать то же самое, но с дополнительным преимуществом $_ является псевдонимом переменной массива.

for my $element (@wholeloop) { 
    if ($element eq "i") { 
     $element = htmlinsert($offset++); 
    } 
} 

$element является псевдоним так что если вы измените его, изменить массив. ($_ будет делать то же самое, но мне не нравится использовать его, когда мне это не нужно, потому что я думаю, что он делает менее понятный код. Это вопрос стиля/выбора, а не технический).

Однако для поиска и замены элемента в строке - как вы делаете - тогда вам, вероятно, лучше использовать одну из других вещей, которые perl действительно делает - регулярные выражения и замена шаблонов. Я не могу дать пример легко, хотя, не зная, что возвращает htmlinsert.

Нечто подобное, хотя:

$loop =~ s/i/newvalue//g; 

Заменит все экземпляры «я» с «новым значением».

Answer 2

=~ является оператором регулярного выражения «соответствие регулярному выражению», поэтому, если htmlinsert() не возвращает регулярное выражение, это, вероятно, не то, что вы хотели сделать. Вероятно, вы хотите использовать =.

Более простой способ сделать это, однако, может заключаться в использовании функции map. map принимает блок и массив и запускает блок с каждым элементом массива в $_, возвращая все значения, возвращаемые этим блоком. Например:

my @wholeloop = map { 
    $_ eq "i" ? htmlinsert($offset++) : $_; 
} split //, $loop; 

(? и : выполнять «если/иначе» в одной строке, они заимствованы из С. map заимствовано из функциональных языков программирования.)

Answer 3

Возможно, вам следует использовать foreach. Он является наиболее подходящим для того, что вы пытаетесь сделать здесь

my @array; 
foreach (@array) { 
    $_ =~ whatever your replacement is; 
} 

Теперь, как сказал Sobrique, если htmlinsert не возвращает значение RegEx, что не собирается работать. Кроме того, если бы вы могли дать нам контекст для «$ offset» и какова его цель, это было бы очень полезно.