Sådan finder du 1 dag gamle fil på Windows for Aktiv Perl?
Er der nogen, der ved den metode?
Hvis Unix eller Linux, kan vi bruge "find ...". Hvordan man vi gøre for Windows?

Jeg er forvirret .. spørger du, hvordan man finder en fil ved hjælp af Windows-operativsystemet, eller hvordan man kan finde en fil ved hjælp af Perl programmerings sprog?

Hvis det er Windows, så hvilken version?

Hvis du gå til Start -> find (eller søgning, hvis det er XP), kan du vælge avanceret søgning, og angive x dage siden.
Hvis du er Tring at gøre det gennem Perl, Fra Orielly's Learning Perl:
"The Perl operatør-M returnerer alder i dage siden en fil eller filehandle er senest blevet ændret "

Sorry for forvirringen.
Når vi bruger Perl kører i UNIX, kan vi bruge nedenstående kommando til at søge på én dag gamle fil.
@ Files \u003d qx / finde. -name '*'-mtime -1-print /;

Det problem, jeg står over for nu er jeg forsøger at gøre det samme, men under Windows-platformen via Active Perl (baseret vindue).
Jeg har prøvet at bruge Windows, men det lader til scriptet vil være meget lang, fordi du skal fange den sidste dag ændrede fil og sammenligne den dato med aktuel dato.

Er der andre løsninger?
Det er meget bedre, hvis jeg kan bruge 1 kommandovej gerne UNIX (f.eks finde) om Window baseret Perl.

Tak.

Jeg oprettede en lille perl script .. se om det virker for dig:

#!C:\Perl\bin\perl.exe
 use File::Find;
 my @oldFiles;
 print "Content-type: text/html\n\n";
 find(\&cleanup, "C:\/WINDOWS/Temp/");
 sub cleanup {
   my $daysOld = ((time - +(stat($_))[9]) / 86400);
   if (/\./ && $daysOld >= 1 && $daysOld < 2) {
      push(@oldFiles, $File::Find::name);
   }
 }
 print @oldFiles;