![]() |
|
|
google unix.com
|
|||||||
| Foros | Registro | Reglas de los Foros | Enlaces | Álbumes | Preguntas más frecuentes | Lista de miembros | Calendario | Búsqueda | Puestos de hoy | Marcar Foros Como Leídos |
| Programación de scripts de shell y Plantear preguntas sobre KSH, CSH, SH, BASH, PERL, PHP, SED, AWK y otros scripts de shell y lenguajes de script de shell aquí. |
Más UNIX y Linux Foro Temas usted puede encontrar útiles
|
||||
| Hilo | Hilo para principiantes | Foro | Respuestas | Último mensaje |
| Ventanas activas cuando señaló. | rimser9 | UNIX Desktop for Dummies Preguntas y Respuestas | 1 | 07-14-2008 04:07 PM |
| Buscar / reemplazar a la nueva disposición: ksh -> perl | McLan | Programación de scripts de shell y | 1 | 05-16-2008 04:14 AM |
| perl - ¿Cómo puedo saber si un archivo no contiene un patrón? | mjays | Programación de scripts de shell y | 4 | 09-19-2007 07:28 AM |
| Solaris 9 para la conexión de Active Directory de Windows | morphous | Sun Solaris | 0 | 03-28-2006 06:15 PM |
| Cómo Unidos Redhat Linux 9 con Windows 2003 Active Directory de autenticación | solaris8in | Linux | 0 | 11-28-2005 08:53 AM |
![]() |
|
|
Linkback vínculo | Herramientas de hilo | Buscar en este Hilo | Tasa de Hilo | Modos de visualización |
|
|
|
||||
|
¿Cómo encontrar a 1 día en el archivo de Windows para Active Perl?
¿Hay alguien conoce el método? Si Unix o Linux, podemos usar el "encontrar ...". ¿Cómo hacemos para Windows? |
|
||||
|
Si usted va a comenzar -> encontrar (o buscar si es xp), puede elegir de búsqueda avanzada, y especificar x días.
Si usted es Tring hacerlo a través de Perl, Desde Orielly de Aprendizaje Perl: "El Perl operador-M vuelve a la edad en días, ya que un archivo o FILEHANDLE último ha sido modificado " |
|
||||
|
Perdón por la confusión.
Cuando usamos Perl ejecutando en UNIX, podemos utilizar el siguiente comando para buscar en el archivo de un día de edad. @ Files \u003d qx / encontrar. -name '*'-mtime -1-print /; El problema me enfrenta ahora es que estoy tratando de hacer lo mismo pero en la plataforma de Windows a través de Active Perl (basada en la ventana). He intentado utilizar las ventanas, pero parece que el guión va a ser muy largo porque es necesario para capturar la última fecha de archivo modificado y comparar la fecha con fecha actual. ¿Hay alguna otra solución? Es mucho mejor si se me permite 1 línea de comando similar a UNIX (por ejemplo, encontrar) en la ventana basada Perl. Gracias. ![]() |
|
|||||
|
He creado una pequeña perl script .. ver si funciona para usted: 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;
Si quiere buscar una unidad, sustituir C: \ / WINDOWS / temp / con C: \ \ Referencias: 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 |
![]() |
| Marcadores |
| Herramientas de hilo | Buscar en este Hilo |
| Modos de visualización | Vota a este hilo |
|
|