perl脚本在Java源代码中搜索区分大小写（不区分大小写）的文件名

Question

我正在尝试开发一个脚本，该脚本将查看项目目录结构和源文件（主要是Java和xml文件）中的文件名，这些文件名在代码中可能错误的方式下如何在文件所在的目录/驱动器上命名。 例如，驱动器上的代码Abc.xml中的ABC.xml。 当我们从Windows迁移到Linux时，发现了此问题。

我原本以为使用ACK，但是这里的防火墙似乎阻止了CPAN，并且它一直无法使用dmake在我的计算机上手动安装。 （使用最新版本的草莓）

到目前为止，这是我能够汇总的内容，它以递归方式搜索基本路径下的每个子目录，以获取Java和xml文件。 然后，它将打开找到的每个文件，并对源列表中的每个名称进行不区分大小写的搜索，然后对搜索结果进行区分大小写的匹配，以删除大小写相同的结果，然后将否定结果存储在每个源文件（键）都带有一个数组（值），该数组（值）存储每个文件的名称（如果发现大小写与文件名不匹配）。 最后，我计划打印出哈希值。

我目前在设置数组的哈希值方面遇到困难，但是我愿意接受其他/更简单的解决方案。

my $source = "C:/sampleSourcefiles";
my $base_path = "C:/baseDIRprojectCode";
my @searchList;
my %report;

#open source file directory.
if($source){
    opendir (DIR, $source) or die "Directory not found \n" ;
    @searchList = grep(/^.+\..+$/, readdir(DIR));
    closedir DIR;
}

#code does not have file extensions trim from names
foreach my $file (@searchList){
    $file =~ s/\.dat|xml$//;
    #print "$file\n";
}


process_files ($base_path);

# Accepts one argument: the full path to a directory.
sub process_files {
    my $path = shift;

    # Open the directory.
    opendir (DIR, $path) or die "Unable to open $path: $!";

    # Read in the files.
    my @files = grep {!/^\./} readdir (DIR);
    closedir (DIR);

    # append the full path to the file names.
    @files = map { $path . '/' . $_ } @files;

    for (@files) {

        # If the file is a directory
        if (-d $_) {
            process_files ($_);

        # If it isn't a directory, process the file.
        } else { 
            file_search($_);
        }
    }
}

# Accepts one argument: the source file to search
sub file_search {
    my $file = shift;

    #ignore all files not java or xml
    if ($file =~ /\.xml|java$/){

        #search for match to any file in the list
        foreach my $item (@searchList){
            open(F, $file);
            my @lines = <F>;
            close F;
            my @result = grep /$item/i , @lines;

            if (@result){
                %report($item, @result);

                #foreach my $res (@result){
                #   if($res eq $file){
                #       print "good result\n";
                #   } else {
                #       print "Inequality match found in file $file for $res\n"; 
                #   }
                #}
            } else {
              }
        }
    }
}

Answer 1

您的工作进展顺利，但可以改善。

首先：线

%report($item, @result);

没有任何意义; 不应该只是子程序调用吗？

report($item, @result);

其次，您要使用哈希做什么？

第三：您的迭代效率不是很高。 为什么要重新打开并重新读取每个文件名的文件？

首先获取文件列表，将其小写形式映射到其原始形式，效率更高

my %lower2original = map { (lc($_), $_) } @files;

然后使用qr运算符构建一个大正则表达式，不区分大小写地搜索其中的任何一个：

my $regex = '\b(' . join('|', @files), ')\b';
$regex = qr/$regex/ip;

然后依次打开每个文件并使用

while (my ($match) = /$regex/g)
{
    my $original = $lower2original{lc($match)};
    if ($match ne $original)
    {
        print "case mismatch: line $. of $file has $match instead of $original\n";
    }
}

第四：我将使用File :: Find :: Rule获取文件列表 。