Hoe vind ik 1 dag oud bestand op Windows voor Active Perl - De UNIX-en Linux Forum

lcfoo · #1 (**permalink**) 02-20-2003

Hoe vind ik 1 dag oud bestand op Windows voor Active Perl?
Is er iemand kent de methode?
Als Unix of Linux, kunnen we gebruik maken van de "zoek ...". Hoe doen wij voor Windows?

oombera · #2 (**permalink**) 02-20-2003

Ik ben in de war .. vraagt u hoe u een bestand met behulp van het Windows-besturingssysteem te vinden of hoe u een bestand met het vinden Perl programmeertaal?

Als het Windows, dan welke versie?

dangral · #3 (**permalink**) 02-20-2003

Als je naar start -> vinden (of zoek als het xp), kunt u uitgebreid zoeken kiezen, en geef x dagen geleden.
Als u tring om het te doen via PerlUit Orielly's Learning Perl:
The Perl operator-M geeft de leeftijd in dagen sinds een bestand of filehandle is voor het laatst gewijzigd "

lcfoo · #4 (**permalink**) 02-20-2003

Sorry voor de verwarring.
Wanneer we Perl lopen in UNIX, kunnen we gebruik maken van de onderstaande commando te zoeken in de een dag oude bestand.
@ Files \u003d qx / vinden. -* '-mtime -1 naam'-print /;

Het probleem waarmee ik nu ik probeer hetzelfde te doen, maar onder Windows-platform via Active Perl (venster gebaseerd).
Ik heb geprobeerd met behulp van Windows, maar het lijkt het script zal zeer lang kan zijn, want je moet op de laatste dag, aangepast bestand en vergelijk de datum waarop met de huidige datum vast te leggen.

Is er nog andere oplossingen?
Het is veel beter als ik 1 lijn van commando als UNIX kunt gebruiken (bijvoorbeeld) vinden op basis van het venster Perl.

Bedankt.

oombera · #5 (**permalink**) 02-21-2003

Ik heb een kleine perl script .. zien of het werkt voor u:

Code:

#!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;

Als u wilt zoeken een gehele harde schijf, vervangt C: \ / WINDOWS / Temp / met C: \ \

Referenties:

http://techupdate.zdnet.co.uk/story/...122110, 00.html
http://techupdate.zdnet.co.uk/i/z/tu...inga110902.htm

http://www.xav.com/perl/lib/Pod/perlfunc.html # item_stat

Meer UNIX en Linux Forum Onderwerpen Misschien vindt u Helpful
Draad	Thread Starter	Forum	Antwoorden	Last Post
Actieve vensters als wees.	rimser9	UNIX Desktop voor Dummies Questions & Answers	1	07-14-2008 03:07 PM
Zoeken / vervangen voor nieuwe bestand: ksh -> perl	McLan	Programmeren en Shell Scripting	1	05-16-2008 03:14
Perl - Hoe kom ik erachter of een bestand bevat geen patroon?	mjays	Programmeren en Shell Scripting	4	09-19-2007 06:28
Aansluiten Solaris 9 voor Windows Active Directory	morphous	SUN Solaris	0	03-28-2006 05:15 PM
Hoe Unite Redhat Linux 9 met Windows 2003 Active Directory-verificatie	solaris8in	Linux	0	11-28-2005 08:53

Thread Tools	Zoeken in deze Thread
Toon Printversie E-mail deze pagina	Zoeken in deze Thread: Uitgebreid zoeken
Display Modes	Beoordeel deze draad
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode	Beoordeel deze draad:


	Powered by