如何在grep中匹配每个文件一次?

时间:2012-10-11 02:44:52

标签: regex perl shell unix grep

是否有任何grep选项让我控制匹配的总数但在每个文件的第一次匹配时停止?

示例:

如果我这样做grep -ri --include '*.coffee' 're' .我就明白了:

./app.coffee:express = require 'express'
./app.coffee:passport = require 'passport'
./app.coffee:BrowserIDStrategy = require('passport-browserid').Strategy
./app.coffee:app = express()
./config.coffee:    session_secret: 'nyan cat'

如果我grep -ri -m2 --include '*.coffee' 're' .,我明白了:

./app.coffee:config = require './config'
./app.coffee:passport = require 'passport'

但是,我真正想要的是这个输出:

./app.coffee:express = require 'express'
./config.coffee:    session_secret: 'nyan cat'

执行-m1不起作用,因为我为grep -ri -m1 --include '*.coffee' 're' .

提供此功能
./app.coffee:express = require 'express'

尝试不使用grep,例如这个find . -name '*.coffee' -exec awk '/re/ {print;exit}' {} \;产生了:

config = require './config'
    session_secret: 'nyan cat'

更新:如下所述,GNU grep -m选项处理每个文件的计数,而BSD grep的-m将其视为全局匹配计数

6 个答案:

答案 0 :(得分:38)

因此,使用grep,您只需要-l, --files-with-matches选项。

关于findawk或shell脚本的所有答案都不在问题范围内。

答案 1 :(得分:33)

我认为你可以做一些像

这样的事情
grep -ri -m1 --include '*.coffee' 're' . | head -n 2

例如从每个文件中选择第一个匹配项,并选择最多两个匹配项。

请注意,这需要grep-m视为每个文件的匹配限制; GNU grep确实这样做了,但BSD grep显然将其视为全局匹配限制。

答案 2 :(得分:5)

我会在awk中执行此操作。

find . -name \*.coffee -exec awk '/re/ {print FILENAME ":" $0;exit}' {} \;

如果你不需要递归,你可以用awk:

来做
awk '/re/ {print FILENAME ":" $0;nextfile}' *.coffee

或者,如果你使用足够的当前bash,你可以使用globstar:

shopt -s globstar
awk '/re/ {print FILENAME ":" $0;nextfile}' **/*.coffee

答案 3 :(得分:2)

使用find和xargs。 找到每个.coffee文件并对每个文件执行-m1 grep

find . -print0 -name '*.coffee'|xargs -0 grep -m1 -ri 're'

不使用-m1进行测试

linux# find . -name '*.txt'|xargs grep -ri 'oyss'
./test1.txt:oyss
./test1.txt:oyss1
./test1.txt:oyss2
./test2.txt:oyss1
./test2.txt:oyss2
./test2.txt:oyss3

添加-m1

linux# find . -name '*.txt'|xargs grep -m1 -ri 'oyss'
./test1.txt:oyss
./test2.txt:oyss1

答案 4 :(得分:2)

find . -name \*.coffee -exec grep -m1 -i 're' {} \;

find的-exec选项为每个匹配的文件运行一次命令(除非你使用+而不是\;,这使得它像xargs一样)。

答案 5 :(得分:0)

您可以在perl中轻松完成此操作,并且不会出现凌乱的跨平台问题!

use strict;
use warnings;
use autodie;

my $match = shift;

# Compile the match so it will run faster
my $match_re = qr{$match};

FILES: for my $file (@ARGV) {
    open my $fh, "<", $file;

    FILE: while(my $line = <$fh>) {
        chomp $line;

        if( $line =~ $match_re ) {
            print "$file: $line\n";
            last FILE;
        }
    }
}

唯一的区别是你必须使用Perl样式的正则表达式而不是GNU样式。 They're not much different

您可以使用File::Find在Perl中执行递归部分,或使用find提供文件。

find /some/path -name '*.coffee' -print0 | xargs -0 perl /path/to/your/program