Perl - 使用 sed 或 tail 删除内联文件的第一行并将第一行返回给 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";

这应该删除内联文件的第一行。 （我没试过）

如果我也可以将第一行返回到 $variable 来做事，那就完美了。

如果事情失败了，我可以将这一行重新添加到文件中。

我知道我可以用一堆 FILE 用数组来做到这一点，但似乎有点多。

文件很小，不到 100 行，每行 6 个字符。

我是否完全不知道为此追求 sed 或 tail？

如何使用这些系统调用将删除的行作为 $line 返回？

感谢您的学习体验。

Answer 1

我不喜欢将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;
}

Answer 2

听起来像是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;
}