perl数组元素减法

Question

我有一个如下所示的数组

  

阵列=（411625,411626,411629,411629,411630）

我希望在相邻元素的数组中得到delta，并输出如下所示

---------------------------------
   1     2      3      4       5
411625-411626-411629-411629-411630
      1      3      0      1

Answer 1

这应该让你开始：

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my @array=(411625, 411626, 411629, 411629, 411630);

say join "\t", 1 .. @array;
say join '-', @array;
say join "\t", map $array[$_] - $array[$_ - 1], 1 .. $#array;