要使用perl打印到文件上的标量值(上次修改的值)？

Question

open (OUT,">new.txt");

my $var = "test-1";
print OUT "$var";

$var = "test-2";
print OUT "$var";

$var = "test-3";
print OUT "$var";

close(OUT);

输出结果如下：

    test-1
    test-2
    test-3

我正在尝试以如下方式获取输出：

    test-3
    test-3
    test-3

• 在perl脚本中为该文件句柄(OUT)执行最终赋值/修改后，将标量值打印到文件上。

如果它有这样的表现方式，请指导我……

提前感谢所有人

Answer 1

这里有一种方法可以做到。

use strict;
use warnings;
use autodie;

my @print;

my $var = "test-1";
push @print, \$var;

$var = "test-2";
push @print, \$var;

$var = "test-3";
push @print, \$var;

open my $out, '>', "new.txt";
print $out map { $$_ } @print;

通过使用对变量的引用而不是变量的值，并将打印的行存储到末尾，您将使用存储在变量中的最后一个值进行打印。