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

Stack Overflow用户

提问于 2014-05-26 11:29:26

回答 2查看 1.3K关注 0票数 4

我有一个包含值的数组。我需要从每个数组元素中减去1&保存在那里本身。

例如：

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

现在，@words包含：

但实际上，其他代码中需要使用的值是：(减去1，始终是1)

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

发布于 2014-05-26 11:39:08

作为普拉迪普解决方案的另一种选择，有些字符更短：

#!/usr/bin/perl

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

$_-- for @words;

票数 9

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/23869082

复制

相似问题

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