从文本文件的行范围中删除 \n 个字符

Question

假设我们有一个 1000 行的文本文件。

我们如何从第 20 行到第 500 行删除换行符（例如用空格替换它们）？

我的尝试：

sed '20,500p; N; s/\n/ /;' #better not to say anything

所有其他行 (1-19 && 501-1000) 应保持原样。

由于我熟悉 sed，因此欢迎使用 awk 或 perl 解决方案，但由于我是 perl 和 awk 新手，请与他们一起解释。

Answer 1

你可以使用这样的东西（我的例子规模略小:-)

$ cat file
1
2
3
4
5
6
7
8
9
10
$ awk '{printf "%s%s", $0, (2<=NR&&NR<=5?FS:RS)}' file
1
2 3 4 5 6
7
8
9
10

printf 格式说明符中的第二个 %s 被字段分隔符（默认为空格）或记录分隔符（换行符）替换，具体取决于记录编号是否在范围内。

或者：

$ awk '{ORS=(2<=NR&&NR<=5?FS:RS)}1' file
1
2 3 4 5 6
7
8
9
10

根据行号更改输出记录分隔符并打印每一行。

如果需要，您可以使用 awk -v start=2 -v end=5 '...' 传递开始和结束的变量

Answer 2

这可能对你有用（GNU sed）：

sed -r '20,500{N;s/^(.*)(\n)/\2\1 /;D}' file

或许更易读：

sed ':a;20,500{N;s/\n/ /;ta}' file

Answer 3

使用 perl 单行删除换行符：

perl -i -pe 'chomp if 20..500' file

或者用空格代替：

perl -i -pe 's/\R/ / if 20..500' file

说明：

开关：

• -i：编辑<> 文件（如果提供扩展名，则进行备份）
• -p：为输入文件中的每个“行”创建一个 while(<>){...; print} 循环。
• -e：告诉perl 在命令行上执行代码。

代码：

• chomp：删除新行
• 20 .. 500: 如果Range operator .. 在行号 20 到 500 之间

Answer 4

这是一个 perl 版本：

my $min = 5; my $max = 10;
while (<DATA>) {
    if ($. > $min && $. < $max) {
        chomp;
        $_ .= " ";
    }
    print;
}

__DATA__
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

输出：

1
2
3
4
5
6 7 8 9 10
11
12
13
14
15

它读入DATA（您可以将其设置为文件句柄或您的应用程序需要的任何内容），并检查行号$.。虽然行号在$min 和$max 之间，但行尾是chomped 并在行尾添加一个空格；否则，该行将按原样打印。