•Re: Finding oldest file in directory

Probably only the teeniest bit faster to run, but a lot easier to type, I would have picked -s $a over (stat $a)[10] and so on.

Also, above some number of files (depending on your OS efficiency), it'd be faster to cache your stats for the sort.

update: Darn it. I misread [10] as wanting the size, even though there were other clues in the message about wanting the oldest.

OK, yes, replace -s there with -M.

Comment on •Re: Finding oldest file in directory Select or Download Code

Replies are listed 'Best First'.
Re^2: Finding oldest file in directory by pg (Canon) on Oct 18, 2004 at 18:38 UTC
"it'd be faster to cache your stats for the sort" Depends on what does "oldest" mean, and how files are created, modified and removed from the directory. The catched info might not be correct and useful. It probably just increases the complexity of the program, with 10+ files in the directory, most likely not worth it.	[reply]
Re^3: Finding oldest file in directory by halley (Prior) on Oct 18, 2004 at 18:41 UTC
I think what Randal L. Schwartz was referring to, when he said "cache it for the sort," was to use a very common sort optimization technique called, not coincidentally, the Schwartzian Transform. `@sorted = map { $_->[0] } sort { $a->[1] <=> $b->[1] } map { [ $_, (-s $_) ] } @unsorted;` [download] -- `[ e d @ h a l l e y . c c ]`	[reply] [d/l]
Re^3: Finding oldest file in directory by Fletch (Bishop) on Oct 18, 2004 at 18:58 UTC
If the underlying files are changing quick enough that `-s` isn't going to return the same result you're probably already screwed (and I want to say that some `qsort` implementations might even core on you)).	[reply] [d/l]
Re^2: Finding oldest file in directory by bluto (Curate) on Oct 18, 2004 at 19:15 UTC
Do you mean '-C' instead of '-s' (file size)?	[reply]


good chemistry is complicated, and a little bit messy -LW
	PerlMonks