Как вставить строку в файл в начало файла в Perl?

Question

Я использовал Perl помощник, чтобы закодировать это. Это выглядит, я скучаю по персонажу или что-то. Мне нужно написать новый текст в начало текстового файла.

open (LOGFILE, ">> complete.txt") ; # writes new to the bottom

$datetime = localtime ;

print LOGFILE "\n" ;

print LOGFILE $datetime\n" ;
print LOGFILE "$name\n" ;
print LOGFILE "Has completed the work\n" ;

close (LOGFILE) ;

Answer 1

Ответ на этот вопрос в FAQ по Perl .

Как изменить, удалить или вставить строку в файл или добавить в начало файла?

Если вы программируете на Perl, то стоит потратить час или около того, чтобы просмотреть FAQ. Он полон полезной информации.

Answer 2

Вы можете использовать модуль Tie::File, чтобы разрешить доступ к файлу через массив:

use Tie::File;
my @array;
tie @array, 'Tie::File', 'complete.txt' or die $!;
unshift @array, localtime."\n";

Answer 3

Эта ссылка объясняет это лучше, чем я мог

Как вставить текст в начало файла с помощью Perl

Answer 4

Спасибо всем за быстрые ответы, было всего несколько минут назад. Кажется, это прекрасно работает

это то, что рекомендовал Паскаль, я просто не знал, как это сделать.

open (LOGFILE, "complete.txt") ;
@data = ;
close (LOGFILE);

open (LOGFILE, ">complete.txt") ;

$datetime = localtime ; 

print LOGFILE "\n" ; 

print LOGFILE $datetime\n" ; 
print LOGFILE "$name\n" ; 
print LOGFILE "Has completed the work\n" ; 

foreach (@data) {
    print LOGFILE $_;
}

close (LOGFILE) ;