如何确定一个文件是否被另一个文件使用/调用？

Question

我目前正在大学二年级，因此我的编程技能和知识并不像我希望的那么强。我暑假期间正在一家网络开发公司实习，分配给我的第一项任务让我完全不知所措。这就是我来这里寻求帮助的原因。

主文件夹中有许多子文件夹，每个子文件夹中有许多 .js、.cs 和 .php 文件 - 大约 1000 个文件。但大约有 300 个没有被使用。我需要打开每个子文件夹，看看这些文件是否被任何其他文件使用/调用。如果不是，我需要将未使用文件的位置存储在文本文件中。

我做了一些研究，发现命令 grep -r filename * 就是这样做的，但是在命令行上我无法弄清楚如何循环遍历文件夹并根据内容更改文件名文件夹内。我的工作站是 Windows 系统，安装了 Cygwin。

Answer 1

echo file,count >results.csv
for f in $(find . -name *.js -o -name *.cs -o -name *.php)
do
    echo $f,$(grep -cr $(basename $f) *) >> results.csv
done

这将为您提供一个像这样的 csv 文件，其中包含每个文件被引用的次数。

file,count
file1,3
file2,1
file3,0

编辑以在 grep 之前删除文件路径

Answer 2

这不需要双循环吗？ （大 O²）。您必须在每个文件中搜索该文件的每个实例。

我会使用 Perl 而不是 Awk 或 BASH（尽管可以在 BASH 中做到）。

#! /usr/bin/env perl

use warnings;
use strict;
use feature qw(say);

use File::Find;     #Not crazy about File::Find, but it's a standard module
use File::Basename;

my %fileHash;
my @dirs = qw(foo bar barfu fufu barbar);   #List of the directories you're searching

#Finds the name of all the files. Include ALL files and not just .php, etc.

find(\&wanted, @dirs);

sub wanted {
    next if (-d $File::Find::name); #Skip directories
    $fileHash{$File::Find::name} = 0;       #Number of times file is referenced
}

# Outer Loop: Foreach file you have to parse

foreach my $fileName (keys %fileHash) {

    # We don't have to grep anything except those below.
    (my $suffix = $fileName) =~ s/.*\.//;
    next unless ($suffix eq ".js" or $suffix eq ".cs" or $suffix eq ".php");

    #Slurp up file in an array. That way, we can use the grep command
    open (FILE, $fileName) or die qq(Can't open "$fileName" for reading\n);
    my @lines = <FILE>;
    close FILE;

    # Now, look for each and every file you've got in that directory tree
    # in this particular file. This is an inner loop

    foreach my $fileToFind (keys %fileHash) {
        my $basename = basename($fileToFind);

        # If any lines in the file contain the file name, increment the hash.
        if (grep /$basename/, @lines) {
            $fileHash{$fileToFind} += 1;
        }   
    }   
}   


#Now just print out those files who never got incremented (i.e. never referenced)
foreach my $fileName (keys %FileHash) {
    next if ($fileHash{$fileName} != 0);
    say "File: $fileHash{$fileName}"
}   

我采取的捷径是仅查找文件的基本名称而不是全名。理论上，我应该从根目录查找它的全名，以及它与文件本身的关系的名称。不过，我现在懒得这么做。最有可能的是，您不必担心这一点。

Answer 3

唷，棘手。至少如果你必须考虑“被使用”这一点。

对于 .cs，您可以使用导入语句，但这些语句不会轻易让您断定文件是否正在使用。导入可能在包级别上工作，除非我弄错了（更像是一个java人......）。

我认为 JavaScript 和 php 文件的情况会变得更糟。

也许您应该问，为什么该报告首先有价值？

Answer 4

这只是一个草稿，你需要研究所有命令并做你自己的逻辑......

for file in $(find -type f -name \*.extension); do
    grep -Rl $file /in/path
done > /tmp/myfiles