如何从文件中提取文本行？

Question

我有一个充满文件的目录，我需要从中提取页眉和页脚。 它们的长度都是可变的，因此使用头部或尾部是行不通的。 每个文件都有一行我可以搜索，但我不想在结果中包含该行。

通常

*** Start (more text here)

以 And 结尾，

*** Finish (more text here)

我希望文件名保持不变，因此我需要覆盖原始文件，或者写入不同的目录，然后我自己覆盖它们。

哦，是的，当然是在 Linux 服务器上，所以我有 Perl、sed、awk、grep 等。

Answer 1

尝试使用触发器！“..”运算符。

# flip-flop.pl
use strict;
use warnings;

my $start  = qr/^\*\*\* Start/;
my $finish = qr/^\*\*\* Finish/;

while ( <> ) {
    if ( /$start/ .. /$finish/ ) {
        next  if /$start/ or /$finish/;
        print $_;
    }
}

然后，您可以使用 -i perl 开关来更新您的文件，如下所示......

 $ perl -i'copy_*' flip-flop.pl data.txt 

这会更改 data.txt 但事先将其复制为“copy_data.txt”。

Answer 2

GNU coreutils 是你的朋友...

csplit inputfile %^\*\*\* Start%1 /^\*\*\* Finish/ %% {*}

这会生成你想要的文件 xx00。 您可以通过选项 --prefix、--suffix 和 --digits 更改此行为，但请参阅 手册为您自己。 由于 csplit 旨在生成多个文件，因此不可能生成没有后缀的文件，因此您必须手动或通过脚本进行覆盖：

csplit $1 %^\*\*\* Start%1 /^\*\*\* Finish/ %% {*}
mv -f xx00 $1

根据需要添加循环。

Answer 3

获取页眉：

cat yourFileHere | awk '{if (d > 0) print $0} /.*Start.*/ {d = 1}'

获取页脚：

cat yourFileHere | awk '/.*Finish.*/ {d = 1} {if (d < 1) print $0}'

根据需要从页眉到页脚获取文件：

cat yourFileHere | awk '/.*Start.*/ {d = 1; next} /.*Finish.*/ {d = 0; next} {if (d > 0) print $0}'

还有一种方法，使用 csplit命令，您应该尝试类似的操作：

csplit yourFileHere /Start/ /Finish/

并检查名为“xxNN”的文件，其中 NN 正在运行，还请查看 csplit 联机帮助页。

Answer 4

或许？ 从不删除开始到结束。

$ sed -i '/^\*\*\* Start/,/^\*\*\* Finish/d!' *

或者...不太确定...但是，如果它有效，也应该删除开始和结束行：

$ sed -i -e '/./,/^\*\*\* Start/d' -e '/^\*\*\* Finish/,/./d' *

d！可能取决于sed的构建你有——不确定。
而且，我完全凭记忆（可能很差）写下了这篇文章。

Answer 5

一个快速的 Perl hack，未经测试。 我对 sed 或 awk 的使用不够流利，无法使用它们获得这种效果，但我对如何做到这一点很感兴趣。

#!/usr/bin/perl -w
use strict;
use Tie::File;
my $Filename=shift;  
tie my @File, 'Tie::File', $Filename or die "could not access $Filename.\n";  
while (shift @File !~ /^\*\*\* Start/) {};  
while (pop @File !~ /^\*\*\* Finish/) {};  
untie @File;  

Answer 6

perlfaq5：如何在文件中更改、删除或插入行中的一些示例，或附加到文件的开头？ 可能会有所帮助。 您必须使它们适应您的情况。 另外，Leon 的触发器运算符答案是在 Perl 中执行此操作的惯用方法，尽管您不必修改文件即可使用它。

Answer 7

覆盖原始文件的 Perl 解决方案。

#!/usr/bin/perl -ni
if(my $num = /^\*\*\* Start/ .. /^\*\*\* Finish/) {
    print if $num != 1 and $num + 0 eq $num;
}