폴더의 일련 번호를 기반으로 손실된 파일을 찾는 방법

Question 1

#!/usr/bin/perl

# open the directory in the first arg (defaults to
# .) and get a sorted list of all files ending in
# .dpx into array @files
opendir(my $dir, shift // '.');
my @files = sort grep { /^Frame .*\.dpx$/ } readdir($dir);
close($dir);

# get the numeric value of the first and last
# element of the array
my ($first) = split /\./, $files[0];
my ($last)  = split /\./, $files[-1];

#print "$first\n$last\n";

# find and print any missing filenames
foreach my $i ($first..$last) {
  my $f = sprintf("%08i.dpx",$i);
  print "File '$f' is missing\n" unless -e $f
};

예를 들어 로 저장 find-missing.pl하고 실행 가능하게 만듭니다 chmod +x find-missing.pl.

먼저, 테스트 실행을 위해 일치하는 파일 묶음을 무작위로 생성해야 합니다(이 테스트에서는 10개 이하의 파일이면 충분합니다).

$ for i in {0..9} ; do
    [ "$RANDOM" -gt 16384 ] && printf "%08i.dpx\0" "$i" ;
  done | xargs -0r touch

$ ls -l *.dpx
-rw-r--r-- 1 cas cas 0 Feb 24 13:30 00000000.dpx
-rw-r--r-- 1 cas cas 0 Feb 24 13:30 00000001.dpx
-rw-r--r-- 1 cas cas 0 Feb 24 13:30 00000003.dpx
-rw-r--r-- 1 cas cas 0 Feb 24 13:30 00000005.dpx
-rw-r--r-- 1 cas cas 0 Feb 24 13:30 00000006.dpx
-rw-r--r-- 1 cas cas 0 Feb 24 13:30 00000007.dpx
-rw-r--r-- 1 cas cas 0 Feb 24 13:30 00000008.dpx

Bash에서는 $RANDOM0에서 32767 사이의 임의의 숫자가 주어지므로 for루프가 파일을 생성할 확률은 약 50%입니다. 이번 실행에서는 00000002.dpx, 00000004.dpx, 00000009.dpx를 제외한 모든 항목이 생성된 것을 확인할 수 있습니다.

그런 다음 Perl 스크립트를 실행합니다.

$ ./find-missing.pl .
File '00000002.dpx' is missing
File '00000004.dpx' is missing

00000009.dpx참고: 이는 발견된 최대 번호의 파일을 초과하므로 언급되지 않습니다 . 이를 수행하려면 $last적절한 값으로 하드코딩하거나 명령줄 인수에서 가져올 수 있습니다.

.Frame@ARGVGetSelect::표준또는Getopt::긴):

#!/usr/bin/perl

# Configuration variables
my $digits = 7;
my $prefix = 'Frame ';
my $suffix = '.dpx';

# Format string for printf
my $fmt = "$prefix%0${digits}i$suffix";

# Open the directory in the first arg (defaults to
# the current dir, ".") and get a sorted list of all
# files starting with $prefix and ending in $suffix
# into array @files
opendir(my $dir, shift // '.');
my @files = sort grep { /^$prefix.*$suffix$/ } readdir($dir);
close($dir);

# Get the numeric value of the first and last
# element of the array by removing the filename
# prefix (e.g. "Frame ") and suffix (e.g. ".dpx"):
my ($first, $last);
($first = $files[0])  =~ s/^$prefix|$suffix$//g;
($last  = $files[-1]) =~ s/^$prefix|$suffix$//g;

#print "$first\n$last\n";

# find and print any missing filenames
foreach my $i ($first..$last) {
  my $f = sprintf($fmt, $i);
  print "File '$f' is missing\n" unless -e $f
};

그런데, ($first = $files[0]) =~ s/^$prefix|$suffix$//g;이것은 변수에 값을 할당하고 s///대체 작업을 통해 이를 수정하는 일반적인 Perl 관용어입니다. 이는 다음과 같습니다:

$first = $files[0];
$first =~ s/^$prefix|$suffix$//g;

총 파일 수(및 누락된 파일 수)를 인쇄하려면 # find and print any missing filenames위 버전 중 마지막 코드 블록(및 그 이후의 모든 항목)을 다음과 같이 변경합니다.

# find and print any missing filenames
my $missing = 0;
foreach my $i ($first..$last) {
  my $f = sprintf($fmt, $i);
  if (! -e $f) {
    print "File '$f' is missing\n";
    $missing++;
  };
};

printf "\nTotal Number of files: %i\n", scalar @files;
printf "Number of missing files: %i\n", $missing;

그러면 다음과 같은 출력이 생성됩니다.

$ ./find-missing2.pl 
File 'Frame 00000002.dpx' is missing
File 'Frame 00000003.dpx' is missing

Total Number of files: 7
Number of missing files: 2

Answer

#!/usr/bin/perl

# open the directory in the first arg (defaults to
# .) and get a sorted list of all files ending in
# .dpx into array @files
opendir(my $dir, shift // '.');
my @files = sort grep { /^Frame .*\.dpx$/ } readdir($dir);
close($dir);

# get the numeric value of the first and last
# element of the array
my ($first) = split /\./, $files[0];
my ($last)  = split /\./, $files[-1];

#print "$first\n$last\n";

# find and print any missing filenames
foreach my $i ($first..$last) {
  my $f = sprintf("%08i.dpx",$i);
  print "File '$f' is missing\n" unless -e $f
};