ファイルの最後の行から表示させる（最新情報を５回分だけ表示）

質問

ファイルの最後に1行追加し、６行以上になるとファイルの先頭を１行削除。
表示は最後の行から行うスクリプトを作りたいのです。
新しい情報を５回分だけ表示する様にしたかったのですが、余りにも力技なのでもう少しスマートにやる方法を教えてもらえませんか？

----sort.txt----
1a
2b
3c
4d
----------------

#!/usr/bin/perl
$fname = "sort.txt";
print "Content-type: text/html;\n\n";
$aaa="5e";
open(OUT, ">>$fname");
flock(OUT, LOCK_EX);
print OUT "$aaa\n";
flock(OUT, LOCK_NB);
close(OUT);
open(IN, "$fname");
$cnt = "0";
while($line = <IN>){
$a[$cnt] = "$line";
$cnt++;
}
close(IN);
if($cnt > 5){
open(OUT, ">$fname");
flock(OUT, LOCK_EX);
$cnt = "0";
while($cnt < 6){
if($cnt > 0){
print OUT "$a[$cnt]";
}
$cnt++;
}
flock(OUT, LOCK_NB);
close(OUT);
}
$cnt = "0";
open(OUT, "$fname");
@buff = <OUT>;
close(OUT);
foreach $line ( reverse @buff ){
$cnt++;
print "$line<br>\n";
}
exit();

回答No.3

natsuki_tk

微妙に気になるのですが、
データファイルは常に最大5行なのでしょうか？

>新しい情報を５回分だけ表示する様にしたかったのですが
は、例えば100行から5回分だけなのか、
それとも5行から5回分(つまり全部)なのかが気になります。
(別の方法でデータが増えたりするなどして)

#一行追加と一行削除
push @list,$newline;
shift @list if scalar(@list)>5;

色々あると思います。
$#data使ったりとか…。

#表示
foreach (reverse @list){
　　print "$_\n";
}

ごく普通に？

仮に5行止まりでなくて例えば100行中5行表示だとしたら、

#表示
foreach (reverse @list[-5..-1]){
　　print "$_\n";
}

とでもすることになるのでしょうか。
読みにくい気もしますけれど。

データ量が多くないのであれば、
一括で配列に読み込んで処理すると楽で、かつ読みやすいと思います。

あとはループ変数なるべく使わないようにすると
見た目がスマートに？見えるかもしれません。

お礼

natsuki_tkさん、回答ありがとうございます。
>データファイルは常に最大5行なのでしょうか？
常に最大５行にする様にファイルを編集する様にしたいと思っています。一括で配列に読み込んで処理する方法が良いですね。