Код, который находит отсутствующие файлы в серии

Question

Я ищу строку кода, которая идентифицирует отсутствующие файлы в серии файлов и экспортирует этот список в текстовый файл. Например: каталог с именем 1to100000 содержит PDF-файлы с именем 1,2 ... 99999,100000, но некоторые из них отсутствуют. Я хотел бы, чтобы скрипт сообщал об этих отсутствующих файлах в текстовый файл. В идеале это должен быть исполняемый скрипт на Perl. Спасибо, Джейк

Answer 1

Использование readdir:

my @expect = map "$_.pdf", 1..100000;
my %notfound;
@notfound{@expect} = ();

opendir my $dirh, "1to100000" or die "Couldn't open directory: $!";
while ( my $fname = readdir($dirh) ) {
    delete $notfound{$fname};
}

for my $fname (@expect) {
    if ( exists $notfound{$fname} ) {
        print "missing $fname\n";
    }
}

Answer 2

Просто посчитайте от 1 до 100000 и проверьте, существует ли файл.

foreach my $num ( 1 .. 100000 ) { 
    my $fname = "1to100000/$num.pdf";
    print "missing $fname\n" unless -f $fname;
}

Answer 3

Вот пример поиска пропущенных чисел в диапазоне (используя Set :: IntSpan).

#!/usr/bin/perl
use strict;
use warnings;

use Set::IntSpan;

# the last sector on disk
my $end_sect = 71127179;

# The complete range of sectors on the disk
my $range = Set::IntSpan->new( "0-$end_sect" );

# The ranges of used sectors
my $used = Set::IntSpan->new( 
'0-1048706,1048707-2097414,69078879-71127179' );

# Calculates the remaining unused sectors
my $unused = $range->diff( $used );

print $unused->run_list;