如何计算包含两个单词中的一个而不是两个单词的行
I需要计算文本文件中包含单词the和an的行(诗歌.txt), 但不是那些同时包含这两个的。我试过用grep-c诗歌.txt
解答动态
格雷普-坎恩诗.txt 但是当和an的总行数是9行时，这给了我错误的答案6。
我只想计算包含单词的行，而不是单词本身。应该只计算实际单词，因此应计算但不在那里的单词，以及但不计算Pan.
示例文件：poem.txt
哪里是雾鲨吗？她在哪？这个小暗礁与大海搏斗桅杆。哪里是小海鸥吗？他在哪？海鸥长得像一只透明的海鸥海盗。云老掉牙。她会像死人一样平静地站起来海盗。吃吧安橙色。温暖阳光灿烂的鲨鱼悄悄地拉着一只冰冷的老鲨鱼微风。所有船要颠簸下雨帆。埃尔维斯亚伦·普雷斯利也被简单地称为猫王，也被称为国王，他是有史以来最畅销的独奏音乐艺术家许多流派中最成功的商业艺术家他获得了许多奖项，包括格莱美终身成就奖Telvis在20世纪70年代有许多连身衣，包括一件鹰式连身衣。 进一步澄清：诗中有多少行包含了或，但你不应该数同时包含和的行。
汽车是红色的-这算一个苹果在角落里-不计数你好我很大-不计数哪里是苹果计数的 所以这里的输出应该是2。
Edit：我不担心大小写的敏感性。
perl-nE'END{say$c+0}++$c if/\b\b/i xor/\ban\b/i'file gawk'END{print c+0}/\lt；一个\lt；the \lt；the\lt；an\>；/）{++c}'IGNORECASE=1文件
Withgrep:
cat.txt\grep-Evi-e'\gt；*\gt；'-e'\gt；*\gt；“\\
grep-Eci-e”\<；（an
the）\lt；匹配单词的开头（thanks@glenn jackman）\gt；这样我们可以确保不匹配包含“the”的单词或'an'（如'pan'）
grep-Evi-e'\gt；*\gt；'因此匹配所有不包含'an'的行。。。'
类似地，grep-Evi-e'\gt；*\gt；'匹配所有不包含'the。。。一个'
grep-Evi-e'\gt；*\lt；.*an\lt；（anthe）\lt；和\>；而不是（
^）和（
$），正如@glenn-jackman
EDIT 2所建议的：为了计算匹配的数量而不是匹配的行的数量，使用以下e表达式：
cat poem.txt\grep-Evi-e'\gt；*\lt；*\lt；an\124; grep-Eio-e'\<；（an
the）\124; wc-l 使用grep的-o选项，它在一个单独的行中打印每个匹配项（没有其他内容），然后wc-l来计算行数技巧：
awk“（/（^\W）[Tt]他（\W
$）/&！/（^
\W）[Aa]n（\W
$）/）
（/（^
\W）[Aa]n（\W
$）/&！/（^
\W）[Tt]he（\W
$）/）{c++}结束{print c}'诗.txt 这个如果
行与（^\W）[Tt]he（\W
$）（第一个字母不区分大小写，前面是非单词成分（\W）或行的开头（^），将增加计数器c，后跟非单词成分（\W）或行尾（$），但不是（^
\W）[Aa]n（\W
$）（不区分大小写的第一个字母an）-或-行匹配（^
\W）[Aa]n（\W
$），但不是（^
\W）[Tt]he（\W
$） 在结尾，打印c.
的值可以使用\gt；表示单词开头quot；单词结尾：
awk'（/\gt；/lt；[Aa]n\>；/）（/\gt；/lt；[Tt]他\lt；[Tt]he\lt；[Aa]n\lt；/\lt；/\>；
请注意，您在自己尝试的解决方案中显示的管道构造将不起作用，因为用文件作为输入参数调用grep将取代从stdin读取，因此管道的第一部分将在未被注意的情况下消失，由于输出完全是由于最后一部分（它寻找an的出现，甚至那些嵌入在换句话说）。
您可以用GNU grep和PCRE zero length a来完成分区：
grep-iP'(?=.*\b\b）（？� �*\禁止（b）（？=.*\ban\b）（？� �*\b\b）'诗.txwhere是雾鲨吗？。。。吃一个橘子…grep-ciP'（？=.*\b\b）（？� �*\禁止（b）
（？=.*\ban\b）（？� �*\b\b）'诗.txt9 perl中也有相同的特性（它的起源地），并且perl可能出现在GNU grep不存在的机器上。
这个GNU awk命令将执行您需要的操作需要：
$awk'函数lnxor（a，b）{返回！（a&b（！alt；the\lt；an\>；/）；c=lnxor（a，b）；计数+=c}结束{打印计数}'诗.txt9 lnxor是a和b的逻辑not xor。
其中，如果行包含，则a为真；如果行包含，则b为真。
通过这种方式，很容易将概念扩展到更多的字。
在GNU awk中，也可以使用IGNORECASE（将其设置为非零）而不是tolower（）来忽略字符串被正则表达式匹配的大小写。但是，这将改变所有的字符串和正则表达式操作，包括FS和RS的影响。既然如此广泛的变化（在这种情况下会起作用），那么应该更加小心地使用它。
一种使用perl的方法，其中我们对正则表达式的布尔值求和，并使用它作为索引，从匿名数组中选择适当的增量，这取决于是否未找到、是否找到任何一个或两者都有。
perl-lne'$k+=（0,1,0）[/\ban\b/i+/\b\b/i]}{print 0+$k'诗歌.txt9- End
免责声明：
本页内容仅代表作者本人意见，若因此产生任何纠纷由作者本人负责，概与琴岛网公司无关。本页内容仅供参考，请您根据自身实际情况谨慎操作。尤其涉及您或第三方利益等事项，请咨询专业人士处理。