On 2/13/23 01:11, Andreas Fett wrote:
On Sun, Feb 12, 2023 at 03:48:36PM +0100, Hilmar Preuße wrote:
Hallo,
my $wanted = sub { my $stat = stat($_); return unless -f $stat; return unless $stat->mtime > $touchstat->mtime; return unless /$filePattern/; push @files, $File::Find::name; };
find($wanted, glob("/var/log/icinga/logs"));
Eine Anmerkung noch. Es ist eventuell effizienter, wenn Du den Check auf den Filename vor das stat() legst. Ich bin mir nicht 100% sicher, ob das im konkreten Anwendungsfall wirklich nen Unterschied macht, aber solche syscalls grad bei Filesystemzeugs sind in Perl tendenziell teuer. (in C würd ich das definitiv davor legen)
OK, danke für Deinen Input; habe es jetzt so geändert. An der Laufzeit des Skriptes ändert sich dadurch aber wenig, denn die echten Zeitfresser sind weiter hinten.
Hilmar -- Testmail