Perl - использование sed или tail для удаления первой строки файла inline и возврата 1-й строки в var

Question

Это очень ново для меня, но я медленно подбираю его.

Мне нужно открыть файл, вернуть первую строку в var, чтобы сделать материал, а затем удалить первую строку из файла после успешного завершения работы.

В сценарии mt, вот что печатает все, кроме первой строки экрана.

$file = 'test.txt'; 

system "tail -n+2 /home/username/public_html/adir/$file"; 

Теперь я сделал некоторые ковыряться здесь и нашел:

system "sed -i '1d' home/username/public_html/adir/$file"; 

который должен удалить первую строку файла инлайн. (Я не пытался)

Это было бы прекрасно, если бы я мог также вернуть первую строку переменной $, чтобы делать что-то.

Если материал не удается, я мог бы добавить строку обратно в файл.

Я знаю, что могу сделать это с кучей ФАЙЛА < и> с массивами, но, кажется, немного.

Файл небольшой, менее 100 строк по 6 символов.

Неужели я совершенно не знаю, как преследовать sed или хвост для этого?

Как вернуть удаленную строку в виде строки $, используя эти системные вызовы?

Спасибо за опыт обучения.

Answer 1

Похоже на то, что Tie::File идеально подходит.

#!/usr/bin/perl 

use strict; 
use warnings; 
use Tie::File; 

my $file = 'test.txt'; 

tie my @array, 'Tie::File', $file or die "Count not tie file: $file: $!"; 

my $line = $array[0]; 

if (do_something_successfully()) { 
    shift @array; 
} 

Answer 2

Мне не нравится идея использовать system() для задач, которые perl блестящий.

Как насчет?

use warnings; 
use strict; 

open my $fh, q[<], $ARGV[0] or die $!; 

## Read from the filehandle in scalar context, so it will read only 
## first line. 
my $first_line = <$fh>; 

# do stuff with first line... 

## And if stuff was successful, read left lines (all but the first one) and 
## print them elsewhere. 
while (<$fh>) { 
    print; 
}