mv
せずにApacheにURLのルーティングを任せてしまうのはどうですか?
ファイルが多くなるとfind
はコストが高そうですし、
FTPにアップロードされるファイルパスは、幸い単純な比較だけで
最新のファイルを特定できそうなので、ディレクトリツリーを歩く小さなスクリプトとmod_rewriteとRewriteMapを利用します。
OSX El capitan で動作確認済み。perlスクリプトをApacheにサーブさせないようにするにはもう一手間ぐらい必要そうですが、隠すほどのものでもないかも。
これならcronを待たなくてもいいですし。
httpd.conf
RewriteMap latest "prg:/var/www/find_last_filepath.pl"
/var/www/.htaccess
RewriteEngine On
RewriteBase /
RewriteCond %{REQUEST_FILENAME} !-f
RewriteRule "^latest.jpg$" "${latest:pict}" [R=302,L]
/var/www/pict/* (FTPで直接ここにアップロードさせる)
/var/www/pict/2016-11-08/Capture/13_57_20_200.jpg
/var/www/pict/2016-11-08/Capture/13_59_20_319.jpg
/var/www/pict/2016-11-08/Capture/14_02_20_498.jpg
/var/www/find_last_filepath.pl
#!/usr/bin/perl
use strict;
use warnings;
use FindBin qw($RealBin);
use File::Spec::Functions qw(catfile canonpath);
sub find_last {
my @path = @_;
# @pathにあるファイルを読む
my @ls = reverse sort { $a cmp $b } grep {/^[^.]/} do {
my $path = catfile(@path);
opendir my $dir, $path or die "$!: $path\n";
readdir $dir;
};
# ファイルとディレクトリに分割
my @files = grep { -f catfile(@path, $_) } @ls;
my @dirs = grep { -d catfile(@path, $_) } @ls;
# もしファイルもディレクトリも無ければこのディレクトリを諦める
return if @files == 0 && @dirs == 0;
# ディレクトリだけなら順に探索
unless (@files) {
for my $dir (@dirs) {
my @found = find_last(@path, $dir);
return @found if @found;
}
# どのディレクトリにも見つからなければやっぱり諦める
return;
}
# ファイルだけなら最後のファイルを返す
unless (@dirs) {
return (@path, $files[0]);
}
# ディレクトリ名がファイル名より後ならディレクトリを探索しつつ
if (($files[0] cmp $dirs[0]) < 0) {
my @found = find_last(@path, $dirs[0]);
return @found if @found;
}
# ファイル名にフォールバック
return (@path, $files[0]);
}
# STDINに探索の開始パスを与える。
local $| = 1;
chdir $RealBin;
while (<STDIN>) {
chomp;
open my $fh, '>', '/tmp/prglog';
printf {$fh} "%s\n", $_;
my @found = find_last($_);
printf "%s\n", canonpath(catfile(@found)) if @found;
}
1;