如何在 perl 中打印输出的最后一个值？

Question

我写了一个脚本，这是第一次按我的意愿工作：PI 将在下面提供我的脚本。我唯一想做但没有成功的事情就是只打印输出的最后一个值。

use strict;
use warnings;
use feature 'say';

my $filename = '/home/Desktop/my_scripts/coordinates_based';

my $p;
my $i;
my $mikos = 0;
my $sum = 0;
my $count = 1;
my $mikos_thetika = 0;
my $mikos_arnitika = 0;
my $k = 1;
my @table = ();
my $final = 0;
my $neg = 0;
my $pos = 0;
my $size;
my $last_value = 0;

open(FH, '<', $filename) or die $!;

while (<FH>) {

    my ($n, $p, $a, $b) = split '\s+';

    chomp;
    $i =  1 if $p eq '+';
    $i = -1 if $p eq '-';

    for ($k..$n)
    {
        $mikos = $b - $a;
        if ($p eq '+')
        {
            $mikos_thetika = $mikos*1 ;
            $pos += $mikos_thetika;
        }
        else
        {
            $mikos_arnitika = $mikos*(-1);
            $neg += $mikos_arnitika;
        }

        $final = $pos + $neg;

        #chomp;
        #push(@table, $final);

        #$size = scalar @table;
        say $final;

        $k = $k + 1;
    }
}
close(FH);

脚本说明：输出计算 $b 和 $a 之间的差异，并根据 $p 分别打印其与 - 或 + 的差异。最后打印这些差异的总和，但不是我想要的总数，而是作为前一个值与即将到来的值的总和（$final）。

我试过这些：

1)  if ($k==$n) # $n is first column of my input file
    {$last_value =$table[$k];}
    say $last_value; # But it prints the same output.

2)  $size= scalar @table;
    $last_value = $table [$size];
    say $size; # prints the correct table size but not as value 
               # but as an entire sequence. For example 
               # if my table size is 5 it prints 1\n 2\n 3\n 4\n 5

3) # Also i tried the List library 
    use List::Util qw(sum);
    $last_value=sum($final);

输入文件 ：

$n $p $a $b   
1 - 852 1934
2 - 2020 3108
3 + 3212 3781
4 - 3917 4162
5 - 4263 4421

我的脚本后的输出文件

-1082
-2170
-1601
-1846
-2004

期望输出

2004年

Answer 1

你基本上有这种情况，在每次迭代结束时你输出一些东西。你一直这样做是因为你不知道什么时候会到达最后一个元素。

while( <FH> ) {
    say $_ ** 2;
    }

不要输出一些东西，而是保存结果以供稍后输出。当您遇到另一个元素时，请替换该值。当输入用完时，您记住的最后一个值就是您要输出的值：

my $previous_output;
while( <FH> ) {
    $previous_output = $i ** 2;
    }

say $previous_output;

或者，您可以通过制作所有输出并仅抓取最后一行tail（或类似内容）来作弊：

% perl script.pl | tail -n 1