[SOLVED] ls recursive AND last modified simultaneously

ted_chou12 · 02-18-2013, 07:04 PM

Hi, I wish to list the directories recursively and at the same time to have the order coming out as last modified:

Code:

sh-3.2# ls -ltR
script:
total 44
-rwxr-xr-x 1 root root  108 Oct 11 17:08 login.sh
-rwxr-xr-x 1 root root 3108 Aug 22 03:13 forumtorrent.sh
-rw-r--r-- 1 root root  385 Apr  7  2012 transmission.py
-rwxr-xr-x 1 root root 1241 Feb 19  2012 blogrss.pl
-rwxr-xr-x 1 root root 1260 Feb 11  2012 signin.sh
-rwxr-xr-x 1 root root  272 Dec 19  2011 blog.sh
-rwxr-xr-x 1 root root  659 Dec 13  2011 forumadd.sh
-rwxr-xr-x 1 root root  392 Dec 13  2011 ftpbackup.sh
-rwxr-xr-x 1 root root 2089 Dec 13  2011 mailtoattachment.sh
-rwxr-xr-x 1 root root 1076 Nov 23  2011 ftpupload.sh
-rwxr-xr-x 1 root root 2179 Nov 19  2011 smbclient.sh

transmission:
total 208
-rwxr--r-- 1 root root   6969 Mar 26  2012 transmission-remote-cli.pod
-rwxr--r-- 1 root root  35147 Mar  5  2012 COPYING
-rwxr--r-- 1 root root    752 Mar  5  2012 NEWS
-rwxr--r-- 1 root root   2714 Mar  5  2012 README.md
-rwxr--r-- 1 root root  10512 Mar  5  2012 screenshot.png
-rwxr-xr-x 1 root root   3749 Mar  5  2012 transmission-remote-cli.1
-rwxr-xr-x 1 root root 139161 Mar  5  2012 transmission-remote-cli.py

If this is done, then the files in two directories are separated, and this is not what I want, I want to sort them seemlessly together:

Code:

-rwxr-xr-x 1 root root  108 Oct 11 17:08 login.sh
-rwxr-xr-x 1 root root 3108 Aug 22 03:13 forumtorrent.sh
-rw-r--r-- 1 root root  385 Apr  7  2012 transmission.py
-rwxr--r-- 1 root root   6969 Mar 26  2012 transmission-remote-cli.pod
-rwxr--r-- 1 root root  35147 Mar  5  2012 COPYING
-rwxr--r-- 1 root root    752 Mar  5  2012 NEWS
-rwxr--r-- 1 root root   2714 Mar  5  2012 README.md
-rwxr--r-- 1 root root  10512 Mar  5  2012 screenshot.png
-rwxr-xr-x 1 root root   3749 Mar  5  2012 transmission-remote-cli.1
-rwxr-xr-x 1 root root 139161 Mar  5  2012 transmission-remote-cli.py
-rwxr-xr-x 1 root root 1241 Feb 19  2012 blogrss.pl
-rwxr-xr-x 1 root root 1260 Feb 11  2012 signin.sh
-rwxr-xr-x 1 root root  272 Dec 19  2011 blog.sh
-rwxr-xr-x 1 root root  659 Dec 13  2011 forumadd.sh
-rwxr-xr-x 1 root root  392 Dec 13  2011 ftpbackup.sh
-rwxr-xr-x 1 root root 2089 Dec 13  2011 mailtoattachment.sh
-rwxr-xr-x 1 root root 1076 Nov 23  2011 ftpupload.sh
-rwxr-xr-x 1 root root 2179 Nov 19  2011 smbclient.sh

Something close to this.
Thanks,
Ted

ted_chou12 · 02-18-2013, 08:10 PM

After some research and trials:

Code:

find . -type f  -printf "%T+\t%p\n" | sort | sed 's/^.*\s.\///i'

It seems a lot more trivial than I thought it would be though.

linosaurusroot · 02-18-2013, 08:34 PM

Code:

#! /usr/bin/perl -w
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
        if 0; #$running_under_some_shell

use File::Find ();

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

sub wanted;

%mstamp=();
# Traverse desired filesystems
File::Find::find({wanted => \&wanted}, '.');
foreach my $f (sort {$mstamp{$b} <=> $mstamp{$a}} keys %mstamp){
    system("ls", "-ld", $f);
}
exit;

sub wanted {
    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
    $atime,$mtime,$ctime,$blksize,$blocks)=();

    ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
    $atime,$mtime,$ctime,$blksize,$blocks)=lstat($_);
    return unless (-f _);
    $mstamp{$name}=$mtime;
}

ted_chou12 · 02-18-2013, 11:12 PM

Thanks for your solution, ill post the test result when i get back.