如何使用 file:find 查找重复的文件名？

Question

我正在尝试编写一个程序来使用 perl 在多个驱动器中查找重复的文件名。这是我的脚本，但它提供了错误的信息。

#!/usr/bin/perl
use File::Find;
@filename;
@path;
$count;
open my $out, '>', 'output.txt' or die $!;
my $file = "E:";
find( \&edit, "$file" );

sub edit() {
    $count++;
    push( @filename, $_ );
    push( @path,     $File::Find::name );
}
print "Processing.";
for ( my $i = 0 ; $i < $count ; $i++ ) {
    for ( my $j = $i + 1 ; $j < $count ; $j++ ) {
        if ( $filename[$i] =~ /\Q$filename[$j]\E/ ) {
            print $out("$filename[$i] = $filename[$j]\n");
            print ".";
        }
    }
}

Answer 1

您应该始终在每个 perl 脚本中包含 use strict; 和 use warnings;。但是，您很幸运，这并没有导致任何错误。

事实上，除了使用正则表达式来测试您何时应该使用eq 之外，您的脚本看起来很实用。不过，作为样式更改，我会将所有路径保存在数组哈希中，以便更轻松地找到匹配的文件。尤其是目前您的方法不会将 3 个或更多组一起列出。

use strict;
use warnings;
use autodie;

use File::Find;

my %files;

open my $out, '>', 'output.txt';
my $file = "E:";

find( \&edit, "$file" );

sub edit() {
    push @{$files{$_}}, $File::Find::name;
}

while (my ($file, $paths) = each %files) {
    next if @$paths == 1;
    print "$file @$paths\n";
}

Answer 2

Kathir，模块 File::Find::Rule 非常强大且易于使用。要仅查找 mp3 文件，请执行以下操作：

#!/usr/bin/perl
use strict;
use warnings;
use File::Find::Rule;

my $directory_to_look_in = '/tmp/you/know';
my @files = File::Find::Rule->file()->name('*.mp3')->in($directory_to_look_in);