Hallo,
On Sun, Feb 12, 2023 at 03:48:36PM +0100, Hilmar Preuße wrote:
> my $wanted = sub {
> my $stat = stat($_);
> return unless -f $stat;
> return unless $stat->mtime > $touchstat->mtime;
> return unless /$filePattern/;
> push @files, $File::Find::name;
>
Am 12.02.2023 um 16:13 teilte Andreas Fett mit:
On Sun, Feb 12, 2023 at 03:48:36PM +0100, Hilmar Preuße wrote:
Moin,
find($wanted, glob("/var/log/icinga/logs"));
>
Dass glob() ist die Filenameexpansion wie in der Shell. Ich
hatte das drin, weil Dein ursprüngliches Beispiel dort
Hallo,
On Sun, Feb 12, 2023 at 03:48:36PM +0100, Hilmar Preuße wrote:
> Am 11.02.2023 um 16:36 teilte Andreas Fett mit:
>
> Moin,
>
> > Den Match für den Filenamen bekommste selber hin :-)
> >
> Habe mich schwer getan, aber ich denke ich habs. Bin halt kein
> Programmierer. Hier nur der Teil,
Am 11.02.2023 um 16:36 teilte Andreas Fett mit:
Moin,
Den Match für den Filenamen bekommste selber hin :-)
Habe mich schwer getan, aber ich denke ich habs. Bin halt kein
Programmierer. Hier nur der Teil, den ich geändert habe.
my $touchfile = '/var/log/icinga/Log_stamp';
my $touchstat =