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

Question

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

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

Answer 2

好吧，我冒昧清理你的代码。

请查看您是否发现以下代码 sn-p 比您的原始代码更容易阅读/理解。

它的用途/功能与您的原始代码相同，除了在程序退出之前处理所有数据后根据您的请求输出最终结果。

注意： zdim 让我注意到代码可以改进 split 特殊情况，if ... else ... CPU 周期效率（用于净化的输入数据）和关于标头跳过代码（标头可以不存在或具有不同的格式）。虽然最初我并不打算改进代码，而只是可读性，但我认为zdim 的建议是值得的改变。

注意： 使用next unless /\d+ +[+-] +\d+ +\d+/; 清理的输入数据可能看起来有些不寻常，因为通常写为next unless /\d+\s+[+-]\s+\d+\s+\d+/; - 更多的是出于演示目的，可以通过不同方式实现相同的目标.当数据字段可以用多个空格分隔时，我假设输入数据的潜在情况不一致（用户可以调整间距以提高可读性）。 ' ' 和 \s 完全不同，因为首先假设仅 ' '（空格），但 '\s' 假设 [ \f\n\r\t]。 perlre

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

my $filename = 'coordinates_based';    # I run code in same directory as input file

my($k,$pos,$neg,$final);               # only necessary variables for computation 

$k = 1;
$pos = $neg = 0;                       # some variables initialization

open my $fh, '<', $filename
    or die "Could not open $filename: $!";

while (<$fh>) {                             # walk through file
    next unless /\d+ +[+-] +\d+ +\d+/;      # sanitize input data
    chomp;

    my ($n, $p, $a, $b) = split;            # see split doc for special case

    for ($k..$n)
    {
        if ($p eq '+') {
            $pos += $b-$a;   # thetika  (positive)
        } else {
            $neg -= $b-$a;   # arnitika (negative)
        }

        $final = $pos + $neg;

        $k++;
    }
}

close $fh;

say $final;                            # output result of computation

输出

-2004