Bueno, sería algo así:
Using perl Syntax Highlighting
#!/usr/bin/perl
use v5.10;
opendir(DIR, "."); # abrir directorio actual
while ($a = readdir DIR) { # para cada archivo del directorio
next if not -d $a; # pasamos al siguiente si no es un subdirectorio
next if not $a =~ /^carpeta/i; # pasamos al siguiente si no comienza por "carpeta"
push @a, [ $a, (stat $a)[10] ]; # encontrado un candidato.
# Con stat() sacamos los atributos de ese subdirectorio.
# El atributo número 10 es la fecha de creación.
# Creamos un array anónimo (con []) y metemos en él
# el nombre del subdirectorio y esa fecha de creación.
# Cada array anónimo lo vamos guardando en @a
}
closedir DIR;
@a = sort { $a->[1] <=> $b->[1] } @a; # Hacemos una ordenación numérica ascendente según
# el valor de la segunda componente de los array
# almacenados en @a.
# El resultado es la lista de los subdirectorios ordenados
# por su fecha de creación, en orden creciente.
# La nueva lista queda otra vez en @a.
#say $_->[0] for @a # Comprobación: salida de todos los encontrados
say $a[-1][0]; # Sacamos el nombre del subdirectorio que está en último lugar
# (el de fecha más reciente de creación)
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Naturalmente, depende de si en tu AIX tienes instalado un Perl v5.10 o más moderno.
Con este código te queda en @a la lista de carpetas, ordenado por fecha de creación.
Pero si, realmente, solo necesitas el nombre de una sola carpeta, te vale con algo más sencillo:
Using perl Syntax Highlighting
#!/usr/bin/perl
use v5.10;
my $max_fecha; # Almacena fecha y
my $max_nombre; # nombre de la carpeta que nos interesa
opendir(DIR, "."); # abrir directorio actual
while ($a = readdir DIR) { # para cada archivo del directorio
next if not -d $a; # pasamos al siguiente si no es un subdirectorio
next if not $a =~ /^carpeta/i; # pasamos al siguiente si no comienza por "carpeta"
my $edad = (stat $a)[10]; # Fecha de creación de $a
if ($max_fecha < $edad) { # Hemos encontrado una carpeta más joven
$max_fecha = $edad; # Recordaremos esa edad
$max_nombre = $a; # y su nombre
}
closedir DIR;
if ($max_nombre) {
say "Carpeta más joven: [$max_nombre]";
}
else {
say 'No encontré ninguna carpeta';
}
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Quizás el problema que veo es saber si en AIX tiene lo de "fecha de creación". Y que ese Perl sea capaz de leerlo.