Skip site navigation (1)Skip section navigation (2) 
Date:      Mon, 7 Nov 2005 13:32:16 -0600 (CST)
From:      David Fleck <david.fleck@mchsi.com>
To:        Jeffrey Ellis <jellis@dhnet.us>
Cc:        FreeBSD questions <freebsd-questions@freebsd.org>
Subject:   Re: How to sort find results
Message-ID:  <20051107132817.L3084@grond.sourballs.org>
In-Reply-To: <BF94D1D5.31584%jellis@dhnet.us>
References:  <BF94D1D5.31584%jellis@dhnet.us>
next in thread | previous in thread | raw e-mail | index | archive | help 
On Mon, 7 Nov 2005, Jeffrey Ellis wrote:
> Well, at least I know it can do it now. The problem -- as usual for a newbie
> -- is that I haven't got the vaguest understanding of what I just read. The
> field part I think I get, but how would I use the first character? I guess
> I'm basically too stupid to get these kind of instructions -- maybe just one
> example for the use of each option included in man pages would help?

Here's a completely different approach.  I ran into this exact problem 
often enough that I wrote a small Perl script to handle it:

#!/usr/bin/perl

use strict;
use File::Find ();

# for the convenience of &wanted calls, including -eval statements:
use vars qw/*name/;
*name   = *File::Find::name;

(@ARGV) or usage();

my (%files, $tString, $reverse);

$reverse = 1 if ($ARGV[1] =~ /r.*/);

# Traverse desired filesystems
File::Find::find(\&wanted, $ARGV[0]);

# sort %files by mod. time, print.
if ($ARGV[1] =~ /r.*/) {
     foreach my $f (sort { $files{$b} <=> $files{$a} } keys %files) {
         # chop off day of week
         ($tString = scalar localtime($files{$f})) =~ s/\w* //;
         print $tString, "\t",$f,"\n";
     }
} else {
     foreach my $f (sort { $files{$a} <=> $files{$b} } keys %files) {
         # chop off day of week
         ($tString = scalar localtime($files{$f})) =~ s/\w* //;
         print $tString, "\t",$f,"\n";
     }
}
exit;


sub wanted {
     my (@fstat);
     # put the filename and mod. time into %files
     ((@fstat) = lstat($_)) && -f _ && ($files{$name} = $fstat[9]);
}

sub usage {
     print "\n",
     "Usage: $0 (directory) [reverse]\n",
     "  examines all files in (directory) and all its subdirectories,\n",
     "  sorts by date, and returns the sorted list, earliest first.\n",
     "  If 'reverse' is specified, files are sorted earliest last.\n\n";
     exit;
}


--
David Fleck
david.fleck@mchsi.com

Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20051107132817.L3084>