Existe-t-il des alternatives à la commande `find` sur linux pour SunOS?

La findcommande sous Linux a beaucoup d'options par rapport à la findcommande sous SunOS ou Solaris.

Je veux utiliser la findcommande comme ceci:

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

Cela fonctionne parfaitement sur une machine Linux, mais la même commande n'a pas l'option -printfsur une machine SunOS. Je souhaite personnaliser ma sortie au "%TY-%Tm-%Td %f\n"format.

Veuillez suggérer des alternatives pour SunOS.

Notez que cela n'a rien à voir avec Linux; ce -printfprédicat est spécifique à l'implémentation GNU de find. Linux n'est pas un OS, c'est juste le noyau trouvé dans un certain nombre d'OS. Alors que la plupart de ces systèmes d'exploitation utilisaient autrefois un espace utilisateur GNU, la grande majorité des systèmes d'exploitation utilisant Linux sont désormais intégrés et ont des commandes de base s'ils en ont.

La findcommande GNU , antérieure à Linux, peut être installée sur la plupart des systèmes d'exploitation de type Unix. Il était certainement utilisé sur Solaris (appelé SunOS à l'époque) avant la sortie de Linux.

De nos jours, il est même disponible en tant que package Oracle pour Solaris. Sous Solaris 11, c'est dans file/gnu-findutilset la commande est nommée gfind(pour GNU find, pour la distinguer de la propre findcommande du système ).

Maintenant, si vous ne pouvez pas installer de packages, votre meilleur pari est probablement d'utiliser 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

Ici, nous utilisons toujours find(implémentation Solaris) pour trouver les fichiers, mais nous utilisons son -execprédicat pour transmettre la liste des fichiers à perl. Et perlfait un lstat()sur chacun pour récupérer les métadonnées du fichier (y compris l'heure de modification en tant que 10ème élément ( $s[9])), l'interprète dans le fuseau horaire local ( localtime()) et le formate ( strftime()) qu'il est ensuite à printcôté du nom de fichier ( $_est la variable de boucle si aucun n'est spécifié dans le texte d'erreur de l'échec du dernier appel système perlet en $!est l'équivalent stderror(errno).

Une autre façon de l'aborder est avec le find2perlscript, qui convertit (ici, un sous-ensemble) d'une findcommande en un script perl correspondant. Le script perl utilise un File::Findmodule pour faire le gros du travail. Parce que le script find2perl sur mon système ne supportait pas le -printfprédicat, je l'ai ajouté manuellement:

#! /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;

Sur deux exemples de fichiers que j'ai créés, la sortie est la même:

$ 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