如何从perl中的所有数组元素中减去1

Question

我有一个包含值的数组.我需要从每个数组元素中减去1并保存它自己.

例如:

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

现在@words包含:

524210
1713409
311919
1422134
16658312

但是在其余代码中需要使用的实际值是:(总是减去1)

524209
1713408
311918
1422133
16658311

如何减去并保存相同的数组.

Answer 1

除了Pradeep的解决方案,一些字符更短:

#!/usr/bin/perl

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

$_-- for @words;

Answer 2

尝试这个

#!/usr/bin/perl

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

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