james@tibrogargan:~/devel/find/testdirs$ find . -type f -exec ls -l --time-style=+%Y%m%d {} \;
-rw-rw-r-- 1 james james 7 20221013 ./d2/d2_3/f2_3_1
-rw-rw-r-- 1 james james 13 20221013 ./d2/d2_2/f2_2_2
-rw-rw-r-- 1 james james 8 20221013 ./d2/d2_2/f2_2_1
-rw-rw-r-- 1 james james 13 20221013 ./d2/f2_2
-rw-rw-r-- 1 james james 0 20221012 ./d1/d3_3/f1
-rw-rw-r-- 1 james james 0 20221012 ./d1/d1_1/f1
-rw-rw-r-- 1 james james 0 20221012 ./d1/d1_1/f3
-rw-rw-r-- 1 james james 0 20221012 ./d1/d1_1/f2
-rw-rw-r-- 1 james james 0 20221012 ./d1/d1_2/f1
-rw-rw-r-- 1 james james 0 20221012 ./d1/d1_2/f3
-rw-rw-r-- 1 james james 0 20221012 ./d1/d1_2/f2
####
f2_3_1 7 20221013 ./d2/d2_3/
...
####
#!/usr/bin/perl
use Cwd qw(cwd);
my $wDirectory = cwd;
my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
open(README, "find $wDirectory -type f |") or die "Can't run program: $!\n";
while() {
$output = $_;
($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat("$output");
print("stats ");
print ("dev: $dev, ino: $ino, mode: $mode, nlink: $nlink, uid: $uid, gid: $gid, rdev: $rdev, size: $size, atime: $atime, mtime: $mtime, ctime: $ctime, blksize: $blksize, blocks: $blocks");
print("]\n");
}
close(README);
####
james@tibrogargan:~/devel/find/testdirs$ ~/devel/perl/findLsiCleaned.pl
stats dev: , ino: , mode: , nlink: , uid: , gid: , rdev: , size: , atime: , mtime: , ctime: , blksize: , blocks: ]
stats dev: , ino: , mode: , nlink: , uid: , gid: , rdev: , size: , atime: , mtime: , ctime: , blksize: , blocks: ]
stats dev: , ino: , mode: , nlink: , uid: , gid: , rdev: , size: , atime: , mtime: , ctime: , blksize: , blocks: ]
stats dev: , ino: , mode: , nlink: , uid: , gid: , rdev: , size: , atime: , mtime: , ctime: , blksize: , blocks: ]
stats dev: , ino: , mode: , nlink: , uid: , gid: , rdev: , size: , atime: , mtime: , ctime: , blksize: , blocks: ]
stats dev: , ino: , mode: , nlink: , uid: , gid: , rdev: , size: , atime: , mtime: , ctime: , blksize: , blocks: ]
stats dev: , ino: , mode: , nlink: , uid: , gid: , rdev: , size: , atime: , mtime: , ctime: , blksize: , blocks: ]
stats dev: , ino: , mode: , nlink: , uid: , gid: , rdev: , size: , atime: , mtime: , ctime: , blksize: , blocks: ]
stats dev: , ino: , mode: , nlink: , uid: , gid: , rdev: , size: , atime: , mtime: , ctime: , blksize: , blocks: ]
stats dev: , ino: , mode: , nlink: , uid: , gid: , rdev: , size: , atime: , mtime: , ctime: , blksize: , blocks: ]
stats dev: , ino: , mode: , nlink: , uid: , gid: , rdev: , size: , atime: , mtime: , ctime: , blksize: , blocks: ]