Simple way to sort a list?

[LilTCLer]

Hi,

I've read in the contents of a directory into a list as follows:

set tempdirContents [ lsort [ glob -nocomplain -types { d } -- * ] ]

What I want to do is sort the list based on the last modify time (so the last modify time is the last entry in the list).

Any ideas on a quick way to do this?

Thanks

 

[feherke]

Hi

Not especially elegant, but I would do it like this :

[b]proc[/b] comparator {a b} {
  [b]global[/b] filetime

  [b]if[/b] {$filetime($a) < $filetime($b)} {
    [b]return[/b] -1
  } [b]elseif[/b] {$filetime($a) > $filetime($b)} {
    [b]return[/b] 1
  } [b]else[/b] {
    [b]return[/b] 0
  }
}

[b]set[/b] filelist [ [b]glob[/b] -nocomplain -types { d } -- * ]

[b]foreach[/b] file $filelist {
  [b]set[/b] filetime($file) [[b]file[/b] mtime $file]
}

[b]set[/b] tempdirContents [ [b]lsort[/b] -command comparator $filelist ]

Feherke.
feherke.ga

 

[LilTCLer]

Thank you, Ill give that a shot after I figure out what its exactly doing

 

[LilTCLer]

Worked perfectly. Thanks again