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: ]