☰

Perl スクリプトをバッチ処理する

tag-icon • tag-icon windows command-line batch perl
Perl スクリプトをバッチ処理する

PERL ファイルを作成しましたが、かなり単純なので、1 つのプログラムを実行するためだけに USB スティックで 16 MB の PERL を送るのはちょっとやりすぎのように思われます。そのため、より小さな DOS バッチ ファイルでも機能するかどうか疑問に思っています。(最も重要な部分である EXIFTOOL は CMD から実行できることは知っています。(コードは後ほど添付します))

ここに時間 txt ファイルがあります:

ABC|10:15
DEF|10:30
XYZ|10:40

スクリプトは写真を読み込み、それらを数字順に並べます (基本的なソートでは 1、10、2、20 になります)。そして、EXIF を使用して、写真が撮影された日時を見つけます。ファイルから上位 2 つの値を取得します。「時間 > A && 時間 < B の場合はフォルダーに移動します」したがって、10:16、10:20、10:25 のタイムスタンプは ABC に移動されます。

ただし、10:33 のタイムスタンプは B より上なので、B が新しい A になり、テキスト ファイルから次の時間 (10:40) が取得されます。これで、10:30 から 10:40 までのタイムスタンプがフォルダー DEF に移動されます。(時間ファイルの末尾にダミー エントリを追加して、X+1 がファイルの末尾を超えて読み取らないようにします。ループは @data-1 に設定されています。したがって、ファイルが 12 行の長さの場合、11 までループし、末尾のダミー行から x+1 を読み取ります。これは現在であり、そのタイムスタンプを持つ写真はありません)

これらのループ/ディレクトリの読み取り/if ステートメントを単純なバッチ ファイルに凝縮できると思いますか?

    #!/usr/bin/perl

    use v5.10;
    use strict;
    use warnings;
my $photoFolder='../../EventsSoft/photos';
use Image::ExifTool;
use File::Copy;
use Time::Local;

### IMPORTANT ###
my $mainFolder='AHS_school';
### IMPORTANT ###

if (!defined $mainFolder || $mainFolder eq ''){
mkdir $photoFolder.'/temp';
$mainFolder='temp';
}
elsif (not -e $photoFolder.'/'.$mainFolder){
mkdir $photoFolder.'/'.$mainFolder;
}


my $exif=new Image::ExifTool;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst,$currentFile,$nextFile,$barcode,$dummy);
my @timePic;
my @checkPics;

opendir my $ht, $photoFolder or die "Could not open photo folder for reading '$!'\n";
my @ht = grep {/\.jpg$/} readdir $ht;           # Only keep the JPG files
closedir $ht;

@checkPics = map  { $_->[0] }               # Sorts the files so run 1,2,3 not 1,11,12
             sort { $a->[1] <=> $b->[1] }
             map  { [$_, $_=~/(\d+)/] } @ht;

for (my $x=0; $x<@checkPics; $x++){
$exif->ExtractInfo($photoFolder.'/'.'photo'.$x.'.jpg');
$timePic[$x]=$exif->GetValue('CreateDate');
}

open (my $fh, '<', $photoFolder.'/photog1.dat') or die "Could not open photog1.dat for reading '$!'\n";
my @data=<$fh>;
close($fh);
chomp @data;

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
    if ($mon eq 11){
    $mon=0;
    }
    else{
    $mon++;
    }
my $str = sprintf ("%02d:%02d %02d:%02d:%02d", $mon, $mday, $hour, $min, $sec);
my $fakeTime='XXXXXX|'.($year+1900).':'.$str;
push (@data,$fakeTime); # Saves time in ISO format

# @data holds the time barcode scanned in the format XXXAGK|2019-03-15 11:14:00
# @checkPics holds the image filename
# @timePic holds time photo was taken
# The fake entry stops reading beyond end of file with ($y+1) option below. Np photos would have been taken at this time/date


for (my $x=0; $x<@data-1; $x++){
($barcode,$currentFile)=split('\|',$data[$x]);      # Gets the top value off data, and gets the barcode
($dummy,$nextFile)=split('\|',$data[($x+1)]);       # Gets the next value down - files to be below this value
    for (my $y=0;$y<@timePic; $y++){
        if ($timePic[$y] eq 0){
        next;
        }
        if ($timePic[$y] lt $nextFile){
        mkdir $photoFolder.'/'.$mainFolder.'/'.$barcode;
        copy ($photoFolder.'/'.$checkPics[$y], $photoFolder.'/'.$mainFolder.'/'.$barcode.'/'.$checkPics[$y]) or die "Copy failed line 70 '$!'\n";
        $timePic[$y]=0;
        }
        if ($timePic[$y] gt $nextFile){
        last;
        }
    }
}

## Because the above loop is @data-1; we do not get to the last entry, so need one final loop
my $picEnd=@data;
($barcode,$dummy)=split('\|',$data[$picEnd-2]); # Gets the final barcode
    for (my $y=0;$y<@timePic; $y++){
        if ($timePic[$y] eq 0){
        next;
        }
        mkdir $photoFolder.'/'.$mainFolder.'/'.$barcode;
        copy ($photoFolder.'/'.$checkPics[$y], $photoFolder.'/'.$mainFolder.'/'.$barcode.'/'.$checkPics[$y]) or die "Copy failed line 86'$!'\n";
    }
if ($mainFolder eq 'temp'){
rename $photoFolder.'/temp',$photoFolder.'/!! TEMP !!'; 
}

say "All photos have been moved to their respective folders";

関連情報