Me dirijo a ustedes en busca de ayuda.
Tengo una aplicación con la que accedo a un directorio y me fijo los archivos .txt que hay, y me los traigo.
Lo que necesito es que me los devuelva ordenados por fecha de creación.
Espero su ayuda..
gracias.
Acá les dejo el código actual, así se entiende un poco más.
Using perl Syntax Highlighting
#Abrimos el directorio
my $dir = '\Desktop\Archivostxt/';
opendir(DIR, $dir) or die $!;
#lo abrimos.
while (my $file = readdir(DIR)) {
next unless (-f "$dir/$file");
# buscamos solo los archivos .txt
next unless ($file =~ m/\.txt$/);
@propiedades = stat($file) <=> time();
#@propiedades = time() - stat($file);
my @archivos=$file;
print ("@archivos");
print("@propiedades");
}
closedir(DIR);
my $dir = '\Desktop\Archivostxt/';
opendir(DIR, $dir) or die $!;
#lo abrimos.
while (my $file = readdir(DIR)) {
next unless (-f "$dir/$file");
# buscamos solo los archivos .txt
next unless ($file =~ m/\.txt$/);
@propiedades = stat($file) <=> time();
#@propiedades = time() - stat($file);
my @archivos=$file;
print ("@archivos");
print("@propiedades");
}
closedir(DIR);
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Eso me devuelve text1.txttext2.txt y lo que haya, pero necesito que me los devuelva ordenados por fecha de creación.