如果一行仅包含一个字符，如何删除行

我只想从包含特定字符的文件中删除一行，如果该行存在多次或不存在，则将该行保留在文件中。

例如：

DTHGTY
FGTHDC
HYTRHD
HTCCYD
JUTDYC

在这里，我要删除的字符是C这样，命令应该删除行FGTHDC，JUTDYC因为它们C恰好有一次。

如何使用sed或来做到这一点awk？

在中，awk您可以将字段分隔符设置为任何值。如果将其设置为C，则字段+1的数量将为的数量C。

所以，如果你说awk -F'C' '{print NF}' <<< "C1C2C3"你4：CCC由3 C秒，因此4个领域。

您要删除仅C出现一次的行。考虑到这一点，在您的情况下，您将要删除恰好有两个- C字段的那些行。因此，只需跳过它们：

$ awk -F'C' 'NF!=2' file
DTHGTY
HYTRHD
HTCCYD

sed方法：

sed -i '/^[^C]*C[^C]*$/d' input

-i 选项允许就地文件修改

/^[^C]*C[^C]*$/-匹配C仅包含一次的行

d -删除匹配的行

这可以通过以下方式完成sed：

码：

sed '/C.*C/p;/C/d' file1

结果：

DTHGTY
HYTRHD
HTCCYD

怎么样？

1. 匹配并打印至少具有Cvia的两个副本的任何行/C.*C/p
2. 用Cvia 删除任何行/C/d，这包括在步骤1中已经打印的行
3. 默认打印其余行

这将删除仅出现一次C的行。

grep -v '^[^C]*C[^C]*$' file

正则表达式[^C]匹配一个非C（或换行符）的字符，重复运算符（又名Kleene star）*指定零个或多个前一个表达式的重复。

grep（和大多数其他面向文本的工具）的默认输出为标准输出；重定向到新文件，如果需要的话，可以将其移动到原始文件的顶部。相同的正则表达式可用于sed -i就地编辑：

sed -i '/^[^C]*C[^C]*$/d' file

（在某些平台上，特别是* BSD包括macOS，该-i选项需要一个参数，例如-i ''。）

用于脚本编辑文件（而不是将修改后的内容打印到标准输出中）的POSIX工具为ex。

printf '%s\n' 'g/^[^C]*C[^C]*$/d' x | ex file.txt

当然，如果您的Sed版本支持该功能，则可以使用sed -i，但要注意，如果要编写旨在在不同类型的系统上运行的脚本，则该功能是不可移植的。

大卫·佛斯特（David Foerster）在评论中问：

是否有一个原因，您正在使用printf，而不是echo或类似的东西ex -c COMMAND？

答：可以。

对于printfvs. echo这是可移植性的问题；参见为什么printf比echo好？ 而且，使用可以在命令之间插入换行符也更容易printf。

对于printf ... | exvs. ex -c ...，这是一个错误处理问题。对于此特定命令，这无关紧要，但总的来说，它会起作用。例如，尝试将

ex -c '%s/this pattern is not in the file/replacement text/g | x' filename

在脚本中。与以下内容进行对比：

printf '%s\n' '%s/no matching lines/replacement/g' x | ex file

第一个将挂起并等待输入；当ex命令接收到EOF时，第二个将退出，因此脚本将继续。还有其他解决方法，例如s///e，但是POSIX未指定。我更喜欢使用上面显示的可移植表格。

对于g命令，最后必须有一个换行符，并且我更喜欢使用printf换行符而不是将换行符嵌入单引号中。

这是使用perl的几个选项。

由于您只匹配一个字符，因此您可以使用tr/C//（翻译，不能替换）返回的匹配数C：

perl -lne 'print if tr/C// != 1' file

通常，如果要匹配多字符字符串或正则表达式，则可以使用以下命令：

perl -lne 'print if (@m = /C/g) != 1' file

这会将正则表达式的匹配项分配/C/g给一个列表，@m并且当该列表的长度不是时打印行1。

-i可以添加该开关以编辑“就地”。

sed -e '
  s/C/&/2;t   # when 2nd C matches skip processing and print
  /C/d        # either one C or no C, so delete on C
'

sed -e '
   /C/!b     # no C, skip processing and print
   /C.*C/!d  # not(at least 2 C) => 1 C => delete
'

perl -lne 's/C/C/g == 1 or print'

对于任何想要的人awk，我会提供

awk '/C[^C]*C/{next}//{print}'

如果与模式匹配，请跳过该行，否则将其打印。您实际上并不需要{print}，您可以使用//默认打印，但我认为它更清晰。

我的第一个想法是使用egrep -v相同的模式，但实际上并没有回答所提出的问题。