Perlのprintループとperlの出力にSimple.csvの</p> <p>内容印刷結果を交換する

Question

そのかのう前に印刷結果を置き換える：

string1 
string2 
string3 

マイスクリプト：

#!/usr/bin/perl 
use strict; 
use warnings; 
my $file = 'simple.csv'; 
open my $info, $file or die "Could not open $file: $!"; 
while(my $line = <$info>) { 
    sleep(2); 
    print $line ; 
} 

close $info; 

出力にそのように：

string1 
string2 
string3 

1行で出力を変更するには、string1のように置き換えてください。次にstring2を置き換えてから文字列3を置き換えてください。

Answer 1

改行文字の適用を制御するにはprintfを使用してください。バックスペース（\b）を使用して、最後の出力行を後ろに移動するか、キャリッジリターン（\r）を発行して行の先頭に移動するだけです。ラインバッファリングも無効になっています。このようなものはあなたの要件を満たしています（私はそれを理解しています）。

#!/usr/bin/env perl 
use strict; 
use warnings; 
my $file = 'simple.csv'; 
open my $info, '<', $file or die "Can't open '$file': $!\n"; 
$|++; #...don't buffer output... 
while (my $line = <$info>) { 
    chomp $line; #...remove ending newline... 
    # printf "%s%s", $line, "\b" x length($line); # alternative-1 
    printf "%s\r", $line;      # alternative-2 
    sleep 2; 
} 
close $info; 
print "\n";   #...leave a clean output... 

Answer 2

希望すると、印刷文自体がそれを行うことができます。

#!/usr/bin/perl 
use strict; 
use warnings; 
my $file = 'simple.csv'; 
open my $info, $file or die "Could not open $file: $!"; 
while(my $line = <$info>) { 
     chomp($line); 
     print "$line\r"; 
     sleep(2); 
} 

close $info; 

このキャリッジリターンは、印刷ごとに行の先頭に移動します。