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