我有一个代码,使用for循环将一个数组的几个元素复制到另一个数组,如下所示

for $count_val (0..($TOTAL_CNT_VAL-1)) {
      $me->{arr1}[$count_val]{cpu} = $me->{arr2}[$count_val];  
}

有什么方法可以使用单行命令(例如“ push”或类似的东西)来实现相同的目的?

#1楼 票数:0 已采纳

后缀for是一个小更简洁

$me->{arr1}[$_]{cpu} = $me->{arr2}[$_] for 0..$TOTAL_CNT_VAL-1;

#2楼 票数:-1

use 5.18.2;
use strict ;
use warnings ;
use Data::Dumper;
$me->{arr1}[$_]{cpu} = @me->{arr2}[$_][0..$TOTAL_CNT_VAL-1];

  ask by Hariprasad C R translate from so

未解决问题?本站智能推荐:

2回复

将Perl哈希合并为一个数组并循环遍历

我正在为cPanel创建一个Perl插件,该插件必须获取用户帐户中的所有域并将其显示在HTML select字段中。 最初,我是PHP开发人员,所以我很难理解Perl的某些逻辑。 我确实知道cPanel插件也可以用PHP编写,但是对于该插件,我仅限于Perl。 这就是我从cPanel获取
2回复

两个数组之间的Perl循环

看起来将a1和a2之间的计算结果作为a2 [0]的值插入。 例子是1 + 1 = 2进入a2 [0]等于2,那么下一个计算将是2 + 2(a2 [0] + a1 [1])导致a2 [0] = 4,然后是4 + 3 (a2 [0] + a1 [2])的结果为a2 [0] = 7,然后移至a2中的
5回复

如何在Perl中平方一个数字?

我有代码可以打印出前 9 个平方数: 但出于某种原因,这只是输出 30167451011。我如何正确地平方一个数字?
3回复

Perl比较两个数组的单个元素

我有两个文件,每个文件都有两列: Perl脚本必须比较两个文件中的A列,并且只有它们相等时,才必须打印FIlE 2的B列 到目前为止,我有以下代码,但是我得到的是一个无限循环,其中B列中有#
1回复

在复制到另一个数组perl之前跳过一个数组元素

这是我的数组。 @resources =(a1,a2,a3,a4,a5) 现在,我想将整个数组复制到另一个数组中,但是它应该跳过存储在$ skip中的元素。 例如,如果$ skip = a3。 然后,新数组应仅包含以下元素: resourcesleft =(A1,A2,A4,
3回复

在Perl中循环使用多维数组的一维

*更新*为错别字 另一个PERL问题。...我试图遍历2D数组。 我对一个尺寸的大小很肯定,但对第二个尺寸不确定。 代码段: 我已编译,但$ value变量无法初始化。
1回复

如何在Perl中将一个循环集成到另一个循环中

对于下面的代码,我试图在foreach语句中包括另一个循环。 我有两个清单。 第一个“项目”是我的列表,在其中检查元素是否为零。 第二个列表“变量”是我的列表,其中的值不为零时将保存这些值。 我想检查列表“ item”中的值是否为零,如果是,请将元素设置为零。 如果未设置,则将第一个
1回复

Perl数组重写

我试图在我的perl代码中对数组求和,但我无法得到正确的输出。 这是我的示例代码 所以这就是我想要的 但不幸的是,如果我打印这个运行每一行的数组,而是我想编写一个循环,将结果存储在数组中来自两个if块。现在代码覆盖了第二个if块中的@array。 希望我说清楚!! 请帮忙