Вход в XFCE — автоматическое заполнение имени пользователя по умолчанию

Другой способ приблизиться к этому — использовать скрипт 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
0
07.06.2020, 17:16
0 ответов

Теги

Похожие вопросы