Array строчный код

Question

Я новичок в Perl, и у меня возникла небольшая проблема. Я пытаюсь выбрать одно значение из массива, чтобы сделать его строчным.

E.g.

my @letters = qw(A B C D E F F A S D F E S F); 

Теперь я хочу выбрать букву F и сделать ее строчной буквой, как я могу это сделать? Имейте в виду, что мой массив очень большой, и он должен иметь возможность делать любые изменения, сделанные пользователем.

Заранее спасибо.

Answer 1

for my $c (@letters) {$c = lc($c) if $c eq"F"} 

Я совершенно не знаю, что вы имеете в виду выбрать и сделать его.

Answer 2

Если вы уже знаете расположение в массиве, вы бы сделали: $array[5] = lc($array[5]). Если нет, есть несколько способов. Один из них использует стиль C зацикливание:

for (my $i=0; $i < @array; $i++) { 
    $array[$i] = lc($array[$i]) if $array[$i] eq 'F'; 
} 

другую карту:

map {$_ = lc if $_ eq 'F'} @array; 

Answer 3

Short Inplace модификация

my @letters = qw(A B C D E F F A S D F E S F); 
map {s/(F)/\l$1/;} @letters; 
print "@letters"; 

Выход:

A B C D E f f A S D f E S f 

Answer 4

Это мой подход :

my @letters = qw(A B C D E F F A S D F E S F); 
@letters = map { tr/F/f/; $_ } @letters; 

UPDATE: так прокомментировал @TLP, это более простой способ:

my @letters = qw(A B C D E F F A S D F E S F); 
tr/F/f/ for @letters; 

Answer 5

Если вы не хотите, чтобы сохранить Orginal список

tr/F/f/ for @letters