Como encontrar 1 dia antigo arquivo do Windows para o Active Perl

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

Como encontrar 1 dia antigo arquivo do Windows para o Active Perl?
Alguém sabe o método?
Se Unix ou Linux, podemos usar a "encontrar ...". Como fazer para Windows?

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

Estou confuso .. estão pedindo que a forma de encontrar um arquivo usando o sistema operativo Windows ou como encontrar um ficheiro utilizando o Perl linguagem de programação?

Se ele é o Windows e, em seguida, qual a versão?

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

Se você vai para iniciar -> encontrar (ou de pesquisa, se é XP), você pode escolher a pesquisa avançada, e especificar x dias atrás.
Se você está a tentar fazê-lo através de Perl, De Orielly da Aprendizagem Perl:
"O Perl operador-M volta a idade em dias, uma vez que um arquivo ou filehandle pela última vez tenha sido modificado "

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

Desculpem a confusão.
Quando usamos Perl executando no UNIX, podemos usar o comando abaixo para pesquisar o arquivo um dia de idade.
@ Arquivos \u003d qx / encontrar. -name '*'-mtime -1-print /;

O problema que eu estou enfrentando agora é que eu estou tentando fazer a mesma coisa, mas sob plataforma Windows, através Activo Perl (baseado janela).
Tenho tentado utilizar o Windows, mas parece que o script vai ser muito longa, porque você precisa capturar a última data modificada arquivo e comparar a data com a data atual.

Existem outras soluções?
É muito melhor se eu posso usar 1 linha de comando como UNIX (por exemplo, encontrar) sobre a janela com base Perl.

Obrigado.

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

Criei uma pequena perl script .. veja se ele funciona para você:

Código:

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

Se você quiser procurar um disco inteiro, substitua C: \ / WINDOWS / Temp / com C: \ \

Referências:

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

Mais UNIX e Linux Fórum Tópicos Você pode achar Helpfull
Fio	Thread Starter	Fórum	Respostas	Última postagem
Active janelas quando apontou.	rimser9	UNIX desktop para Dummies Perguntas & Respostas	1	07-14-2008 04:07
Localizar / substituir ao novo ficheiro: ksh -> perl	McLan	Programação Shell Script e	1	05-16-2008 04:14
Perl - Como faço para descobrir se um ficheiro não contém um padrão?	mjays	Programação Shell Script e	4	09-19-2007 07:28
Conectando Solaris 9 para o Windows Active Directory	morphous	Sun Solaris	0	03-28-2006 06:15
Como Unite Redhat 9 Linux com o Windows 2003 Active Directory autenticação	solaris8in	Linux	0	11-28-2005 08:53

Thread Tools	Pesquisar este Thread
Show Printable Version Enviar esta página	Pesquisar este Thread: Pesquisa Avançada
Display Modes	Esta taxa Thread
Mude para o Modo Linear Hybrid Mode Switch to Threaded Mode	Esta taxa Thread:


	Powered by