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
Description: PGP signature
