มีทางเลือกอื่นสำหรับคำสั่ง `find 'บน linux สำหรับ SunOS หรือไม่?

findคำสั่งบนลินุกซ์มีตัวเลือกมากเมื่อเทียบกับfindคำสั่งบน SunOS หรือ Solaris

ฉันต้องการใช้findคำสั่งเช่นนี้:

find data/ -type f -name "temp*" -printf "%TY-%Tm-%Td %f\n" | sort -r

มันทำงานได้ดีอย่างสมบูรณ์บนเครื่อง Linux แต่คำสั่งเดียวกันไม่มีตัวเลือก-printfในเครื่อง SunOS ฉันต้องการปรับแต่งผลงานของฉันใน"%TY-%Tm-%Td %f\n"รูปแบบ

โปรดแนะนำทางเลือกใด ๆ สำหรับ SunOS

โปรดทราบว่ามันไม่มีส่วนเกี่ยวข้องกับ Linux; ว่ากริยาเป็นเฉพาะกับการดำเนินงานของกนู-printf findLinux ไม่ใช่ระบบปฏิบัติการมันเป็นเพียงเคอร์เนลที่พบในระบบปฏิบัติการจำนวนมาก ในขณะที่ระบบปฏิบัติการเหล่านั้นส่วนใหญ่เคยใช้ผู้ใช้ GNU ในอดีต แต่ปัจจุบันระบบปฏิบัติการส่วนใหญ่ที่ใช้ Linux นั้นฝังอยู่และมีคำสั่งพื้นฐานหากมี

findคำสั่งGNU ซึ่งติดตั้งลีนุกซ์ล่วงหน้าสามารถติดตั้งได้บนระบบปฏิบัติการ Unix ที่มีลักษณะคล้ายกันมากที่สุด แน่นอนว่ามันใช้กับ Solaris (เรียกว่า SunOS ก่อนหน้านี้) ก่อนที่ Linux จะออกมา

ทุกวันนี้มันยังมีอยู่ในแพ็คเกจ Oracle สำหรับ Solaris บน Solaris 11 นั้นอยู่ในfile/gnu-findutilsนั้นและมีการตั้งชื่อคำสั่งgfind(สำหรับ GNU findเพื่อแยกความแตกต่างจากfindคำสั่งของระบบ)

ตอนนี้ถ้าคุณไม่สามารถติดตั้งแพ็คเกจได้ทางออกที่ดีที่สุดของคุณน่าจะใช้perl:

find data/ -type f -name "temp*" -exec perl -MPOSIX -le '
  for (@ARGV) {
    unless(@s = lstat($_)) {
      warn "$_: $!\n";
      next;
    }
    print strftime("%Y-%m-%d", localtime($s[9])) . " $_";
  }' {} + | sort -r

ที่นี่เรายังคงใช้find(Solaris การดำเนินงาน) เพื่อหาไฟล์ แต่เรากำลังใช้มันกริยาที่จะผ่านรายการของไฟล์ที่จะ-exec perlและperlทำการเปิดlstat()แต่ละครั้งเพื่อดึงข้อมูลเมตาของไฟล์ (รวมถึงเวลาการแก้ไขเป็นองค์ประกอบที่ 10 ( $s[9])) ตีความมันในเขตเวลาท้องถิ่น ( localtime()) และจัดรูปแบบมัน ( strftime()) ซึ่งมันจะprintอยู่ข้างชื่อไฟล์ ( $_เป็นตัวแปรลูปถ้า ไม่มีการระบุในperlและ$!เท่ากับstderror(errno)ข้อความแสดงข้อผิดพลาดสำหรับความล้มเหลวในการเรียกระบบครั้งล่าสุด)

อีกวิธีในการเข้าใกล้ก็คือfind2perlสคริปต์ซึ่งแปลง (ที่นี่ชุดย่อย) ของfindคำสั่งให้เป็นสคริปต์ Perl ที่สอดคล้องกัน สคริปต์ 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