在文件中查找单词的行号

Question

我有一个文件：file.txt，其中包含以下数据。 GNU grep 版本：2.5.1，系统管理员拒绝将其升级到更高版本，因为它可能会影响生产

This is a file, my name is Karl, what is this process, karl is karl junior, file is a test file, file's name is file.txt
My name is not Karl, my name is Karl Joey
What is your name?
Do you know your name and what it is?

当我运行以下命令以使用以下命令在此文件中获取单词“is”的行号时，它会给我如下输出：

$ grep -now "is" file.txt

1:is
is
is
is
is
is
2:is
is
3:is
4:is

我可以运行什么命令来获得以下输出：

1:is
1:is
1:is
1:is
1:is
1:is
2:is
2:is
3:is
4:is

或

is:1,1,1,1,1
is:2,2
is:3
is:4

如果我正在尝试以下命令，我已经接近了，但我想用 is 和 is 替换 1（逗号分隔）
grep -now "is" file.txt | tr '\012' ' '| sed "s/([0-9]:)/\n\1/g" | grep "."

1:is is is is is is
2:is is
3:is
4:is

Answer 1

如果您可以使用perl，那么这里使用他们的last match start (@-) 和last match end (@+)：

perl -lne '
while ($_ =~ /\bis\b/g) {
    print "$.:", substr($_, $-[0], $+[0] - $-[0]);
}' file
1:is
1:is
1:is
1:is
1:is
1:is
2:is
2:is
3:is
4:is

基于 OP 要求的新格式：

perl -lne '
    $found =()= /\bis\b/g;
    print substr($_, $-[0], $+[0] - $-[0]), ":", join (",", ($.) x $found);
' file
is:1,1,1,1,1,1
is:2,2
is:3
is:4

使用 GNU awk 作为单词边界：

gawk '{
    n = gsub(/\<is\>/,"");
    printf "%s:", "is"; 
    for (i=1; i<=n; i++) printf "%s%s", NR, (i==n?RS:",")
}' file
is:1,1,1,1,1,1
is:2,2
is:3
is:4

使用香草awk（礼貌Ed Morton（见cmets））：

awk '
{
    n = gsub(/(^|[^[:alpha:]])is([^[:alpha:]]|$)/,"");
    printf "%s:", "is";
    for (i=1; i<=n; i++) printf "%s%s", NR, (i==n?RS:",")
}' file
is:1,1,1,1,1,1
is:2,2
is:3
is:4

Answer 2

grep -o -n "is" file.txt

似乎可以在我的系统上运行。

Answer 3

如果您可以升级grep 的版本，它应该可以修复它：

# grep --version
grep (GNU grep) 2.16
Copyright (C) 2014 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>.
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.

Written by Mike Haertel and others, see <http://git.sv.gnu.org/cgit/grep.git/tree/AUTHORS>.
# grep -now is file
1:is
1:is
1:is
1:is
1:is
1:is
2:is
2:is
3:is
4:is

使用perl模仿grep的输出：

# perl -lne '$x = "is"; $c = () = /\b$x\b/g; while ($c--) { print "$.:$x"; }' file
1:is
1:is
1:is
1:is
1:is
1:is
2:is
2:is
3:is
4:is

另一个：

# perl -lne '$x = "is"; $c = () = /\b$x\b/g; next unless $c--; $t = "${x}:$."; $t .= ",$." while ($c--); print $t' file
is:1,1,1,1,1,1
is:2,1
is:3
is:4