大家好，我有一个关于 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 "]}"

[xuboying]

哦，最后一花括号去掉换成单引号

[ficenow]

@xuboying 嗯，试了，但是所有的 rows 行都没有了>< 不是预期的效果

[xuboying]

@ficenow 怎么可能， print $x[0] print $x[$#x] 是分别打印第一和最后一行

[ficenow]

@xuboying 可是我重定向到文件里所受 rows 关键字搜索不到啊。。

[xuboying]

@ficenow 其掉 for 那段执行能得到第一和最后行吗？

[ficenow]

@xuboying 能，得到的是文件里的第一行和最后一行

[Earthman]

第一行放暂存器，然后取出来，一行可以有多个 sed 命令，命令用 ; 分割

[ficenow]

@xuboying 我觉得你可能理解错了，我的包含 rows 串的行不在文件的第一行和最后一行的

[kingddc314]

sed '2,$s/aaa/bbb/g' text

[ficenow]

@kingddc314 你也理解错了，我的匹配行不在文件的第一行的

[kingddc314]

@ficenow 看错了，以为你是要从第二行开始替换，结果你是删除

[lululau]

sed -i '0,/rows/{//d}'

[kingddc314]

_rep() {
text=`sed -n '/$1/p' $2 | head -1`
n=`sed -n '/$1/=' $2 | head -1`
sed -i '/$1/d' $2 && sed -i "${n}i $text" $2
}
_rep match a.txt
# 鉴于楼主必须使用 sed ，可以先找出第一次匹配的内容和行号，然后删除后再把这一行给添加在之前的位置
# ps ： osx 的 sed 和 linux 的差别很大！！！

[rrfeng]

看到楼上都没有正确回答，闪开我要装逼了！

sed '1,/rows/!{/rows/d}'

[rrfeng]

啊 32 楼已经给出来了……
逃

[kingddc314]

@rrfeng 可是楼主要的是保留第一次匹配的行，不是第一行

[xuboying]

@ficenow 不好意思，题目没看清 perl -e '@x=<>;@i = grep { $x[$_]=~/rows/ } 0..$#x;$x[$i[$_]]="" for (1..$#i-1);print @x'

[rrfeng]

@kingddc314 请自行测试

[kingddc314]

@rrfeng 我错了，你这确实是对的， good job

[Elethom]

@rrfeng
僅限 GNU sed 。

[rrfeng]

@Elethom
--posix 没有问题。

[ficenow]

@lululau
@rrfeng 你们两个的都可以， lululau 的加个!符号就行了，但是如果要保留的是最后一行呢？要怎么办？

[ficenow]

@xuboying 你这个会保留第一个和最后一个，怎么修改使得之保留第一个或最后一个呢？

[xuboying]

perl -e '@x=<>;@i = grep { $x[$_]=~/rows/ } 0..$#x;$x[$i[$_]]="" for (1..$#i-1);print @x'
^----------改成$#i 就把最后一个干掉了
^----------改成 0 就把第一个干掉了

[xuboying]

@ficenow
perl -e '@x=<>;@i = grep { $x[$_]=~/rows/ } 0..$#x;$x[$i[$_]]="" for (1..$#i-1);print @x'
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　^----------改成$#i 就把最后一个干掉了
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　^----------改成 0 就把第一个干掉了

[yingluck]

awk '!/rows/{print} /rows/{if(a != 1){print;a=1}}'

[tt0411]

@rrfeng 求解释 !{//d} 这部分语法

[lonelinsky]

@tt0411 要合在一起理解， 1 ，/rows/! 表示 1 ，/rows/之外的行，{/rows/d}表示删除包含 rows 的行…

@ficenow 偷个巧，保留最后一个可以这样 tac file | sed '1,/rows/!{/rows/d}' | tac

[rrfeng]

保留最后一行稍微换一下就好了啊
sed '/rows/,$!{/rows/d}'

[lonelinsky]

@rrfeng 这个用来保留最后一个是不对的，你再看看…😂

[ficenow]

@lonelinsky
@rrfeng rrfeng 那样不能保留最后一行， lonelinsky 的偷巧方法可以，但是 tac 命令处理文件的时候会把我文件的有些行合并（我也不知道怎么回事），所以把 tac 命令改为 sed '1!G;h;$!d'或 sed -n '1!G;h;$p'是可以的，但是处理速度不理想~~

[lonelinsky]

@ficenow 还可以试试这样 sed "`grep -n rows file | tail -1 | cut -d: -f1`! {/rows/d}" file

至于 tac 会合并的问题我这边没碰到，你试下把会合并的行摘出来看看？ 或者用 vim -b 之类看下是不是不换行的地方有问题…