Perl レコード追加について

Question

open(OUT,">>$aaa") || &err_dsp("オープンエラー $aaa");
print OUT "$bbb\n";
close(OUT);

上記だとファイルの最後にレコードが追加されますが、それを先頭にするにはどうすれば良いでしょう？

$aaa------
111
222
$bbb

上の順番を
$aaa------
$bbb
111
222

上のようにしたい。

Comments

[m.ts10806]

コードはマークダウンの機能を利用してご提示ください。

[m.ts10806]

「perl ファイル 追記 先頭」でそれなりに参考になりそうなコードが出てきますが、それらは確認してみましたか？
https://teratail.com/help/question-tips#questionTips1-2

[KojiDoi]

そこがね、びみょうなんですよね。

Answer 1

perl ファイル 追記 先頭

でぐぐると先頭に出てくるコンテンツですが、ここで紹介されている「読み書き両用モード」は使い方がややこしくてトラブルのもとなのでおすすめしません。

「とほほ」とkentwebは昔からあるサイトで、私も遠い昔には参考にしていました。しかし、今となってはコーディングスタイルが古いところが目立ち（たとえばいまopen(FH, ">file")みたいな2パラメータスタイルのopenは非推奨です）、もうあまり見ないほうがいいです。

本題ですが、一旦別の一時ファイルに書き出してリネームするのが現実的な方法でしょう。

use strict;
use File::Temp 'tempfile';
use File::Copy 'move';
my $aaa = "test.txt";
my $bbb = "INSERT";
my($tempfh, $tempfile) = tempfile();
open(my $fhi, '<', $aaa) or die;
print $tempfh "$bbb\n";
while(<$fhi>){
  print $tempfh $_;
}
close $fhi;
close $tempfh;
move($tempfile, $aaa);