접근하는 또 다른 방법은 find2perl
스크립트를 사용하는 것입니다.이 스크립트는 find
명령 의 하위 집합 을 해당 perl 스크립트로 변환합니다. 펄 스크립트는 File::Find
모듈을 사용 하여 무거운 작업을 수행합니다. 시스템의 find2perl 스크립트가 -printf
술어를 지원하지 않기 때문에 수동으로 추가했습니다.
#! /usr/bin/perl -w
use strict;
use File::Find ();
use vars qw/*name *dir *prune/;
*name = *File::Find::name;
*dir = *File::Find::dir;
*prune = *File::Find::prune;
sub wanted {
my ($dev,$ino,$mode,$nlink,$uid,$gid, $mtime, $year, $month, $day);
if ((($dev,$ino,$mode,$nlink,$uid,$gid,undef,undef,undef,$mtime) = lstat($_)) &&
-f _ &&
/^temp.*\z/s) {
(undef, undef, undef, $day, $month, $year) = localtime($mtime);
$year += 1900;
$month++;
printf "%d-%d-%d %s\n", $year, $month, $day, $_;
}
}
File::Find::find({wanted => \&wanted}, 'data/');
exit;
내가 만든 두 개의 샘플 파일에서 출력은 동일합니다.
$ tree data
data
├── subdir
│ └── foo
│ └── temp2
└── temp1
2 directories, 2 files
$ touch -d 2018-06-20 data/subdir/foo/temp2
$ touch -d 2018-05-19 data/temp1
$ find data/ -type f -name "temp*" -printf "%TY-%Tm-%Td %f\n" | sort -r
2018-06-20 temp2
2018-05-19 temp1
$ ./perlfind | sort -r
2018-06-20 temp2
2018-05-19 temp1
find
Solaris에서 GNU를 사용하려면 findutils 패키지를 설치하십시오 .