¿Cómo puedo leer los archivos en un directorio en orden ordenado?

Question

Cuando leo un directorio en Perl con opendir, readdir y closedir, la función readdir no parece leer los archivos en un orden específico (que puedo decir).

estoy leyendo un directorio que tiene subdirectorios llamados por fecha y hora época:

1224161460 
1228324260 
1229698140 

quiero leer en estos directorios en orden numérico, lo que pondría en primer lugar los directorios más antiguas.

Cuando uso readdir, el primero que dice es 1228324260, que es el del medio. Sé que podría poner los contenidos del directorio en una matriz y ordenar la matriz, pero ¿hay alguna opción que pueda pasar al readdir para leer en orden ordenado? ¿O tal vez una forma más elegante de lograr esto que empujar todo en conjunto y ordenar la matriz? Probablemente existan módulos para hacer esto también, pero es difícil instalar módulos en nuestro entorno, así que, a menos que sea un módulo integrado, preferiría no usar módulos ...

¡Gracias!

EDITAR a lo solicitado, estoy publicando el código que estoy usando:

opendir(my $data_dh, $data_dir) or die "Cannot open $data_dir\n"; 
while (my $name = readdir($data_dh)) { 
    next if ($name eq '.' or $name eq '..'); 
    my $full_path = "${data_dir}/${name}"; 
    next unless (-d $full_path); 
    process_dir($full_path); 
} 
closedir($data_dh); 

Answer 1

readdir puede ser llamado en su contexto matriz, por lo que acaba de hacer esto:

opendir(my $data_dh, $data_dir) or die "Cannot open $data_dir\n"; 
my @files = sort { $a <=> $b } readdir($data_dh); 
while (my $name = shift @files) { 
... 

Answer 2

Puedes probarlo con un poco de magia Glob, glob parece funcionar de una manera ordenada, así que esto:

# Glob in scalar context iterates the result set internally 
while(defined(my $dir = glob($dir . '/*'))){ 
    print $dir, "\n"; 
    # $dir is fed ordered and with full names. 
} 

o

# Glob in list context returns all results. 
for(glob($dir.'/*')){ 
    print $dir , "\n"; 
    # also ordered. 
} 

debería funcionar. Sólo tenga cuidado con pegote, porque esto:

for(0..20){ 
    printf "%30s|%30s\n", glob($dir.'/*'), glob($dir.'/*'); 
} 

hace algo semi-mágico, e imprime el contenido dir dos veces en cada línea. es decir:

/foo/bar/a | /foo/bar/a 
/foo/bar/b | /foo/bar/b 
/foo/bar/c | /foo/bar/c 
/foo/bar/d | /foo/bar/d 

Answer 3

sólo un tiro de un sort frente a cualquier operador de la lista que desea volver a ordenar. No es necesario almacenar los resultados en una matriz tampoco. Puede utilizar un foreach:

opendir my($dh), $dirname or die "Could not open directory [$dirname]: $!"; 

foreach my $file (sort { $a <=> $b } readdir $dh) 
    { 
    ... 
    }