Perl Grep多种模式

如何解决Perl Grep多种模式

| 我有一个文件可以说它叫做

                                 filename.c

我正在尝试查找文件是否通过以下方式之一使用

                          1.  include(\"filename.c\");
                          2.   require(\"filename.c\");
                          3.   x = new filename() ; 
                          4.   class new_class extends filename
                          5.   class new_class implements filename
                          6.   filename::function()

我想知道perl是否可以让我立即进行上述所有搜索，还是只需要一个一个地进行搜索？ 而且我也不擅长正则表达式，所以我想知道如何grep这个字符串                                        扩展文件名                                        实现文件名 两者之间的空间给我带来了问题。提前致谢。     

解决方法

        grep有什么问题？

W=\"filename\"
find . -type f -print0 | xargs -0 grep -ilP \"include(\\\"$W\\.c\\\")|require(\\\"$W\\.c\\\")|x\\s*=\\s*new\\s+$W()|class\\s+new_class\\s+extends\\s+$W|class\\s+new_class\\s+implements\\s+$W|$W::function()\"

    ,        使用File :: Find 我已尝试为您汇编一个完整的示例。但是，您说您不太擅长使用正则表达式，因此尽管我已经包括了您说过的所有匹配项，但是您可以逐一消除它们，直到了解发生了什么。 您可以将此脚本保存在一个文件中，例如script.pl，并按如下方式调用它： perl script.pl dir1 dir2以及dir1和dir2将被深入搜索。 all3ѭ子项将在所有文件和目录上调用，但是如果当前条目（$ _）是目录，则我添加了一个检查以立即返回。 注意：因为我在正则表达式中添加了/ x，所以可以添加空格以在多行上分解正则表达式，以便于阅读。如果需要不区分大小写的搜索，则可能需要添加“ 4”。

use strict;
use warnings;
use File::Find;

my $filename_to_check = \'filename\'; ## or you could set it as first arg and say
                                    ## my $filename_to_check = shift @#ARGV;
my $filename_check = qr/(?:
            include\\s*\\(\\s*\"$filename_to_check\\.c\"\\s*\\)|
            require\\s*\\(\\s*\"$filename_to_check\\.c\"\\s*\\)|
            new\\s+$filename_to_check\\s*\\(|
            class\\s+\\S+\\s+extends\\s+$filename_to_check|
            class\\s+\\S+\\s+implements\\s+$filename_to_check|
            $filename_to_check\\::[\\w]+\\s*\\(\\s*\\)
        )/x;

&find(\\&wanted,@ARGV); ## where ARGV has all the directories you want to search

sub wanted
{
    ## don\'t try to open directories like files
    ## you can also return (exit wanted for current file) based on file extension.
    ##    or other arbitrary reasons.
    return if -d $_;

    eval
    {
        open F,$_ || die \"Can\'t read $File::Find::name,$!\\n\";
        my $found = 0;
        while(<F>)
        {
            if($_ =~ $filename_check)
            {
                $found ++;
                print $_;
            }
        }
        if($found)
        {
            print \"Found $found matches in file,$File::Find::name\\n\";
        }
    };
    if($@)
    {
        print STDERR $@;
    }
}

    ,        我认为您正在寻找正则表达式“或”运算符

|

。

/include\\(\"filename\\.c\"\\);|require\\(\"filename\\.c\"\\);|x = new filename\\(\\) ;|class new_class extends filename|class new_class implements filename|filename::function\\(\\)\\*/

    ,        对于“ BLAH类扩展FOO”，您可能需要类似

/class\\s+\\S+\\s+extends\\s+\\S+/

\\ s匹配任何类型的空格， \\ S匹配任何类型的非空白， +后缀表示\“一个或多个\”，因此\“ \\ s + \”表示\“一个或多个空格\”。