Trier les fichiers d'un répertoire

[CrazyCat]

Lorsqu'on utilise la fonction glob, la liste de fichiers est retournée par ordre alphabétique par défaut.

Voici une petite procédure qui permet de récupérer la liste triée par date de dernière modification (croissante ou décroissante)

tcl

proc sglob {dirname {order "-increasing"}} {
   set tmpfiles [glob -directory $dirname *]
   if {$order ne "-decreasing" && $order ne "-increasing"} { set order "-increasing" }
   set ofiles [lmap name $tmpfiles {list $name [file mtime $name]}]
   return [lmap item [lsort $order -integer -index 1 $ofiles] {lindex $item 0}]
}