как вычесть 1 из всех элементов массива в perl

Question

У меня есть массив, который содержит значения. Мне нужно вычесть 1 из каждого элемента массива & сохранить там сам.

Например:

chop $tve_005; 
@words = split (/,/, $tve_005); 

и теперь @words содержит:

524210 
1713409 
311919 
1422134 
16658312 

Но должны быть использованы в остальной части кодов Infact значения: (вычесть на 1 всегда)

524209 
1713408 
311918 
1422133 
16658311 

Как я могу вычесть и сохранить его в том же массиве.

Answer 1

Попробуйте это

#!/usr/bin/perl 

my @words = (524210,1713409,311919,1422134,16658312); 

@words = map { $_ - 1 } @words; 

Answer 2

В качестве альтернативы решения Прадипом, некоторые символы короче:

#!/usr/bin/perl 

my @words = (524210,1713409,311919,1422134,16658312); 

$_-- for @words;