大家好，我有一个关于 sed 命令的问题想问大家^ ^

[ficenow]

是这样的，我想用 sed 删除匹配到的行的指定范围行，比如 sed -i '/rows/d' data 是删除所有匹配到的包含 rows 字符串的行，但是在这些匹配行中，我想保留第一行，删除第 2 行到最后一行，有人知道怎么做吗？先谢谢了^ ^

[lululau]

sed -i '/rows/q'

[ficenow]

@lululau 你这样只是保留了第一个 rows 匹配行以上的内容，以下的内容全被删除了。。。

[xuboying]

perl -ne 'if ($.>=2) {print unless /rows/} else {print}'

[ficenow]

@lululau 我只是想对匹配到的行做修改，不动文件里的其他行

[ficenow]

@xuboying perl ？我想用 sed 实现><

[ficenow]

补充一点，是影响匹配到的行，文件中的其他行不能动><

[xuboying]

@ficenow 为啥不用 perl ，有 sed 的地方就有 perl

[ficenow]

@xuboying 但是你这样把所有的包含 rows 字符串的行都删除了，我想保留第一个包含 rows 字符串的行

[hucsmn]

perl -e '$n=0; while(<>) {print if ($_ =~ /b/ && !($n++))}

[hucsmn]

上面写错= =， perl -e '$n=0; while(<>) {print if (!($_=~/rows/) || !($n++))}'

[AnyOfYou]

有个思路，可以先去替换第一行的 rows 到某个特殊的内容（只找第一个），然后再去删除包含 rows 的所有行，最后再把第一行的那个特殊关键字替换回 rows 。

[ficenow]

@hucsmn 那个 rows 的匹配串在哪改呀~~

[xuboying]

@ficenow $.是第几行的意思啊

[ficenow]

@hucsmn 非常感谢你，你解决了我的问题^ ^

[ficenow]

@hucsmn 再打扰一下，如果要保留最后一行的呢？

[hucsmn]

@ficenow 试试 tac|perl .....|tac 行吗

[ficenow]

@hucsmn tac|perl -e '$n=0; while(<>) {print if (!($_=~/rows/) || !($n++))}' data|tac > test
这样吗？会卡住

[xuboying]

perl -e '@x = <>; print $x[0];for (@x[1..$#x-1]){print unless /rows/ };print $x[$#x]}

[ficenow]

@xuboying 你这个直接在命令后面加目标文件不行啊><

[ficenow]

@xuboying 把你那最后缺少的'补上也报错 syntax error at -e line 1, near "]}"