perl - 将 2 行合并为 1

Question

我有一个文本文件，以 9 位大学代码开头，以 5 位类(class)代码结尾。

512161000 EN5121 K. K. Jorge Institute of Engineering Education and Research, Nashik 61220 Mechanical Engineering [Second Shift] XOPENH 1 116 16978
517261123 EN5172 R. C. Rustom Institute of Technology, Shirpur 61220 Mechanical Engineering [Second Shift] YOPENH 1 100 29555
617561234 EN6175 abc xyz Education Trust, abc xyz College of Engineering,
Pune 61220 Mechanical Engineering [Second Shift] ZOPENH 2 105 25017

有一些条目存在换行符，如上面的 3 示例所示。
我需要将第 3 行和第 4 行合并为一个，就像第 1 行和第 2 行一样，以便我可以轻松使用 grep、awk 等命令。

更新:

凯文的回答似乎不起作用。

cat todel.txt
112724510 EN1127 Jagadambha Bahuuddeshiya Gramin Vikas Sanstha's Jagdambha College of,
Engineering and Technology, Yavatmal 24510 Computer Engineering LSCO 1 55 93531

cat todel.txt | perl -ne 'chomp; if (/^\d{9}/) { print "\n$_" } else { print "$_\n" }' 
Engineering and Technology, Yavatmal 24510 Computer Engineering LSCO 1 55 93531ege of,

Answer 1

假设您的数据在“file.txt”中，这里是一个可以将行重新组合在一起的扫描:

cat file.txt | perl -ne 'chomp; if (/^\d{9}/) { print "\n$_" } else { print "$_\n" }'

这假设所有有效记录都以 9 位数字开头。 “chomp”最初删除换行符，模式决定换行符应出现在输出中的哪个位置。