如何从perl中的所有数组元素中减去1
发布时间：2020-12-16 06:08:47 所属栏目：大数据 来源：网络整理
导读：我有一个包含值的数组.我需要从每个数组元素中减去1并且保存在那里. 例如： chop $tve_005;@words = split (/,/,$tve_005); 现在@words包含： 5242101713409311919142213416658312 但是在其余代码中需要使用的实际值是:(总是减去1) 524209171340831191814221
|
我有一个包含值的数组.我需要从每个数组元素中减去1并且保存在那里.
例如： chop $tve_005; @words = split (/,/,$tve_005); 现在@words包含： 524210 1713409 311919 1422134 16658312 但是在其余代码中需要使用的实际值是:(总是减去1) 524209 1713408 311918 1422133 16658311 如何减去并保存相同的数组. 解决方法
试试这个
#!/usr/bin/perl
my @words = (524210,1713409,311919,1422134,16658312);
@words = map { $_ - 1 } @words;
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |