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;

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

使用perl（最后修改的值）在文件上打印的标量值？

1 个答案: