इसे अप्रोच करने का एक और तरीका find2perl
स्क्रिप्ट के साथ है , जो find
कमांड (यहाँ, एक सबसेट) को एक समान पर्ल स्क्रिप्ट के लिए कमांड करता है। पर्ल लिपि 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
सोलारिस पर जीएनयू का उपयोग करने के लिए , खोजक पैकेज स्थापित करें ।