Code qui trouve des fichiers manquants dans une série

Question

Je recherche une ligne de code qui identifie les fichiers manquants dans une série de fichiers et exporte cette liste dans un fichier txt. Par exemple: un répertoire appelé 1to100000 contient des pdfs nommés 1,2 ... 99999,100000 mais il manque quelques uns de la série. Je voudrais que le script signale ces fichiers manquants dans un fichier txt. Idéalement, ce serait un script Perl exécutable. Merci, Jake

Answer 1

Comptez simplement de 1 à 100 000 et vérifiez si le fichier existe.

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

Answer 2

Utiliser 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 3

Voici un exemple de trouver les numéros manquants dans une plage (en utilisant 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;