Re: Perl: "find -newer" in nativ

Andreas Fett <[email protected]> Sat, 11 Feb 2023 16:36:10 +0100

Newsgroups	gmane.user-groups.linux.dresden
Message-ID	<[email protected]>

Hallo,

On Sat, Feb 11, 2023 at 12:50:20PM +0100, Hilmar Preuße wrote:
> Moin,
> 
> voran: ich bin ein absoluter Perl Noob und bin darum wahrscheinlich auch
> zu doof, google zu bedienen (nein bei ChatGPT war ich noch nicht). Ich
> suche in einer Directory Structur eine Liste von Files, die aktueller
> sind als ein Referenz-File. Aktuell mache ich das so:
> 
> my @files1 = `find /path/to/pen8*/pools/*/logf -type f -newer $touchfile
> -name "Psipenta_*.log" 2> /dev/null`;
> 
> In $touchfile findet sich der Name meines Referenz-Files. Ich bin mir
> sicher, das kann man auch nativ in Perl machen. Bitte um Hilfe.

---- snip ----
#!/bin/perl
#
use warnings;
use strict;

use File::stat;
use File::Find;
use Data::Dumper;

my $touchfile = 'ref.txt';

my $touchstat = stat($touchfile) or die "No $touchfile: $!";

my @files = ();
my $wanted = sub {
        my $stat = stat($_);
        push @files, $File::Find::name if -f $stat && $stat->mtime > $touchstat->mtime; # TODO check name
};

find($wanted, glob("/path/to/pen8*/pools/*/logf"));

print Dumper(@files);
---- snip ----

Den Match für den Filenamen bekommste selber hin :-)

https://perldoc.perl.org/File::Find
https://perldoc.perl.org/perlrequick

viel Spass.

Grüsse
Andreas

signature.asc (application/pgp-signature, 833 B)