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; 

、変数に格納された最後の値を用いて印刷を行います。