macOS Terminal encontra o arquivo mais recente no diretório [duplicado]

0

Estou escrevendo (o que achei que seria) uma rápida e rápida função bash para identificar a foto mais recente importada para o padrão da Apple Photos.app de uma DSLR.

Até agora, parece algo assim:

find ~/Pictures/Photos\ Library.photoslibrary/Masters -type f

Muito simples. Como está, lista toda a biblioteca de fotos importadas. Meu primeiro instinto foi simplesmente | tail -n 1 , mas os arquivos não estão listados em nenhuma ordem discernível.

Considerei | sort -V , mas não é incomum que os nomes dos arquivos (por exemplo, IMG_0123.CR2 ) fiquem fora de ordem.

FYI: Esta versão BSD de find não suporta a opção -printf encontrada na versão GNU.

    
por tjt263 16.12.2017 / 22:27

2 respostas

1

Eu encontrei essa resposta para uma pergunta semelhante, Solicitar resultados de pesquisa por data de modificação .

No seu caso, deve ser algo como:

find ~/Pictures/Photos\ Library.photoslibrary/Masters -type f -print0 | xargs -0 ls -tl

Mais informações sobre como ele interage podem ser encontradas no link acima.

    
por 20.12.2017 / 09:10
0

Salve este script Perl em algum lugar em sua pesquisa $ PATH, chmod para torná-lo executável e, em seguida, execute-o. Ele solicitará algumas opções, incluindo classificação por nome ou data. É um roteiro antigo que escrevi anos atrás, não estrague muito; funciona!

#!/usr/bin/perl -w

# This script finds files or folders that have been modified "recently"
# (as determined by the timeframe specified in the arguments).
# Just run the script to get the full usage instructions.

use strict;
use File::Find;
use Config;

my $time;
my $units;
my $dir;
my $order = "time";
my @validUnits = qw(sec min hours days);
my @results;
my %results;

if ($#ARGV < 1) {
  print "\nUSAGE: $0 [-f] <time> <units> [dir]\n\n";
  print "Search for recently modified files or folders located\nin (or under) dir (which is \".\" if not specified).\n";
  print "\nResults are sorted by timestamp, in ascending order, unless the '-f' option is used\n";
  print "to specify sorting by filename.\n";
  print "\nPlease enter the time (just a number): ";
  $time = <>;
  chomp $time;
  print "Please enter the units (@validUnits): ";
  $units = <>;
  chomp $units;
  print "Please enter the directory: [.] ";
  $dir = <>;
  chomp $dir;
  if ($dir eq "") { $dir = "." }
  print "Sort order (file or time): [time] ";
  $order = <>;
  chomp $order;
  if ($order eq "") { $order = "time" }
  print "\n";
}
else {
  if ($ARGV[0] eq "-f") {
    $order = "filename";
    shift;
  }
  $time = shift;
  $units = shift;
  if ($#ARGV > -1) {
    $dir = shift;
  }
  else {
    $dir = ".";
  }
}

# Check the time entered.
if (!($time) || !($time =~ m/^[0-9]*$/)) {
  print "You must enter an integer for the length of time.\n";
  exit 1;
}

# Check the units entered.
my $validUnits = grep m/$units/, @validUnits;
if (!($units) || !($validUnits)) {
  print "You must use one of the valid units: @validUnits\n";
  exit 1;
}

if ("min" eq $units) { $time *= 60 }
if ("hours" =~ m/$units/) { $time *= 60 * 60 }
if ("days" =~ m/$units/) { $time *= 60 * 60 * 24 }
my $now = time();
my $then = $now - $time;

find
  (
     sub {
       # If you can't get the mtime for a file, it's probably a dead link.
       # Set $mtime back to "0", to remove this dead link from consideration.
       # NOTE: all links are resolved, so $mtime reflects the mtime of the
       # link target, not the link itself.
       my $mtime = (stat)[9] || "0";
       if ($mtime > $then) {
     # If the $mtime is more recent than the target ($then),
     # add the mtime to the %results hash,
     # keyed by filename (w/ relative path)
     $results{$File::Find::name} = $mtime;
       }
     }
     , $dir
  );

# Get all the keys (filenames) of the %results hash.
# If we're sorting by "time", re-sort @results by the timestamp.
@results = sort keys %results;
if ($order eq "time") {
  @results = sort { $results{$a} <=> $results{$b} } @results;
}

foreach my $key (@results) {
  # If we're sorting by "time", print the time first, followed by filename.
  # Else, print filename first, followed by time.
  if ($order eq "time") {
    print localtime($results{$key}) . ": $key\n";
  }
  else {
    print "$key: " . localtime($results{$key}) . "\n";
  }
}

if ($Config{'osname'} eq "MSWin32") {
  print "\nPress RETURN to exit.\n";
  <>;
}
    
por 19.12.2017 / 16:42