timestamps più recenti

[gianvituzzi]

Salve,

ho una cartella dove vengono uploadate periodicamente ogni 10
secondi delle immagini png. Ora vorrei prendere in considerazione solo
la più recente (timestamp più vicino a time) ... secondo voi qual'è la
migliore soluzione?

Dato che arrivano ogni 10 secondi (un immagine a 10 secs di distanza
dall'altra) dovrei vedere qual'è che ha il ((time - timestamp) <= 10) ?
cmq se non vengono uploadate devo tuttavia prendere la più recente...in
oltre tutte quelle che vengono scartate devono essere eliminate...

qualche idea?

...la prima cosa che mi viene in mente sarebbe la seguente:

#!/perl

use strict;
use warnings;
use File::stat;

my @images = <*.png>;

foreach my $image (@images)
{
   my $sb = stat($image);
   
   if ( (time - $sb->mtime) < 10 ) # ? boh ?
   {
      push @ok , $image;
   } else {
      push @no, $image;
   }
}

# cancella tutte le immagini in @no

# le immagini in @ok vanno bene...

# ma se non c'è nessuna immagine che rientra in (time - $sb->mtime) < 10
) come faccio a prendere cmq la più recente?

grazie

[MARTEDI]

soluzione forse stupida: la prima volta che la trovi scrivi il nome in un file esterno che ogni volta richiami. Se ne trovi una nuova lo sovrapponi altrimenti usi il nome di quella vecchia del file richiamato.
Ho detto ca _ _ te?

[gianvituzzi]

Trovato!!!

tuttavia non viene fatto in perl ma tramite il comando "ls" di unix:

#!/usr/bin/perl

use strict;
use warnings;

my ($latest) = qx(ls -1t ~/images); chomp($latest);

print "$latest\n";

# $latest contiene l'immagine più recentemente uploadata...