일련의 누락 된 파일을 찾는 코드

Question

일련의 파일에서 누락 된 파일을 식별하고 해당 목록을 txt 파일로 내보내는 코드 행을 찾고 있습니다. 예를 들어, 1to100000이라는 디렉토리에는 1,2 ... 99999,100000이라는 이름의 pdfs가 있지만 시리즈 중 일부가 누락되었습니다. 그 스크립트가 txt 파일에 누락 된 파일을보고하고 싶습니다. 이상적으로 이것은 실행 가능한 펄 스크립트 일 것입니다. 감사합니다. Jake

Answer 1

1에서 100000까지 카운트하고 파일이 존재하는지 확인하십시오.

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

Answer 2

사용 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

는 (설정 : 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;