Windows上でPerlを使用しているファイルの最終行を読み取るにはどうすればよいですか？

Question

私はスクリプトを実行する必要がある私のリモートサーバ（ウィンドウ）にインストールされていないので、File：ReadBackwardsモジュールを使わずに、ファイルの最後の行だけを読む必要があります。 最後の行だけを読む最も効率的な方法を教えてください。

Answer 1

あなたは窓です。私はWindows用のinbuildコマンドが何であるか知らないが、あなたがしてみてください他

open my $fh ,"<","file.txt"; 
my $last_line; 
$last_line = $_,while (<$fh>); 
print $last_line; 

それを印刷したり、

反復whileループを使用してファイルハンドラを次のようにのようなものを試してみて、変数に出力を保存しますこれらは、より多くのメモリを消費します。

open my $fh ,"<","file.txt" or die "error opening $!"; 
my @ar = <$fh>; 
print $ar[-1]; 

さも

open my $fh ,"<","file.txt" or die "error opening $!"; 
my @ar = <$fh>; 
print pop @ar; 

Answer 2

この回答はWindowsでは機能しません。

---

これは単発的な問題であれば、単にシステムコールを行い、tailを使用するだけです。

my $last_line = `tail -n 1 $filename`; 

あなたはこれをたくさん行う必要がある場合は、それを展開する前に、あなたのスクリプトに、リモートマシン上のローカル-libのにインストールを考える、またはfatpackingファイル:: ReadBackwards。

Answer 3

以下が見つかりました。here。

サイズのためにこれを試してみてください上：

system tail => -1 => $file; 

Answer 4

（行は比較的等しい長さであれば、各ラインが高々Xバイト、または何でもある場合）は、ファイルについて何かを知っているなら、あなたはすることができるかもしれませんシークで何かをしなさい。たとえば、最後の行が40バイト以下であれば、以下のことができます。ファイルが100 MBであることがわかっている場合（File :: statを使用しています）、最初の10行を平均して何バイトあるかを知ることができます。ループを実行します。あなたは15行または20行を読まなければならないかもしれませんが、それは悪くありません。

open(my $input,"input2.txt")||die "can't open the file"; 

my $last_line; 
seek ($input, -50, 2); 
while(<$input>) 
{ 
    $last_line = $_; 
} 

print "$last_line\n";