perl：如何仅在文本文件中计算第二列中连续两个数字的差异

Question

例如：32.44和30.97然后30.97和29.77等等使用perl的n数

Col1      Col2   Col3    Col4
------------------------------
0000     32.44   37.88   39.47
0001     30.97   37.87   39.49
0002     29.77   37.69   39.39
0003     28.26   37.43   39.23

Answer 1

将值存储在循环外部的变量中，以便在循环的后续传递中访问它。

my $previous;
while (<>) {
   next if $. < 3;  # Skip the header.

   my @fields = split;
   say $fields[1] - $previous if defined($previous);
   $previous = $fields[1];
}