一起分割多个文件

Question

我有70个看起来像的文件（file1 = complex.1.txt; ... file69 = complex.69.txt ... file70 = complex.70.txt）

ATOM   7066  O   GLY A 784      49.130  43.743 -23.586  1.00  1.00           O  
nnn
CONECT  337  403 
END
ATOM      1  N   ARG B   1      26.564 -17.621   9.457  1.00  1.00           N1+
ATOM      2  CA  ARG B   1      26.733 -18.764   8.526  1.00  1.00           C  

我想将所有70个文件分成两个部分。 第二个文件将在END之后开始。 对于所有文件，分割后的文件名将分别为complex.1.txt_part1和complex.1.txt_part2，依此类推。 我尝试了awk解决方案

for ((i=1;i<=70;i++)); do awk '{file="complex.1.txt_part"++k;printf "%s%s",$0,RS > file;close(file)}' RS='END\n' complex.$i.txt; done

但结果只有2个文件。 有人可以纠正这个问题还是发布其他不错的解决方案。

Answer 1

gawk具有FILENAME内置变量，可能对您的需求有用。 此一线工作：

awk 'FNR==1{f=0}{print > FILENAME (f?"_part2":"_part1")}/END/{f=1}' complext.*.txt

Answer 2

这是一个Perl一线解决方案：

perl -n0e '$k=1; for (split /(?<=^END\n)/m) { open $fh, ">complex.$..txt_part".$k++; print $fh $_ }' complex.*.txt

说明

它使用以下两个特殊的命令行选项：

-n

...告诉Perl逐条记录读取给定的输入文件，并为每条记录运行指定的单行代码。 默认情况下，一条记录为一行，但是...

-0

...告诉Perl将“空字节”而不是“换行符”作为输入记录分隔符，因此整个文件将被视为一条记录。

然后在单行代码本身中：

• split /(?<=^END\\n)/m

  ...使用后向断言将输入记录分为两个字符串，该断言在行的开头与字符串END相匹配，后跟换行。

• for (...) { ... }

  ...确保为两个分割字符串分别完成正确的部分

• open $fh, ">..."; print $fh $_

  ...打开一个新文件进行写入，然后将当前的拆分字符串写入其中

• $.

  ...引用当前输入记录编号的特殊变量（即，对于每个读取的记录，它会自动加一）。

• $k=1; ... $k++

  ...这样，对于每个输入记录，输出文件将在for循环的第一次迭代中以“ _part1”结尾，而在第二次迭代中以“ _part2”结尾。