The UNIX and Linux Forums  

Go Back   El UNIX y Linux Foros > Arriba Foros > Programación de scripts de shell y
.
google unix.com



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

Closed Thread
English Japanese Spanish French German Portuguese Italian Dutch Swedish Russian Norwegian Hungarian Hebrew Danish Bulgarian Greek Powered by Powered by Google
 
Linkback vínculo Herramientas de hilo Buscar en este Hilo Tasa de Hilo Modos de visualización
  #1 (Enlace permanente)  
Old 02-20-2003
lcfoo lcfoo is offline
Usuario Registrado
  
 

Fecha: octubre 2002
Ubicación: Malasia
Puestos: 14
Unhappy ¿Cómo encontrar a 1 día para el archivo en Windows Active Perl

¿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?
  #2 (Enlace permanente)  
Old 02-20-2003
oombera's Avatar
oombera oombera is offline Forum Advisor  
Usuario Registrado
  
 

Fecha: agosto 2002
Lugar: Cleveland, OH
Puestos: 804
Estoy confundida .. estás preguntando cómo encontrar un archivo usando el sistema operativo Windows o cómo encontrar un archivo usando el Perl lenguaje de programación?

Si es de Windows y, a continuación, la versión?
  #3 (Enlace permanente)  
Old 02-20-2003
dangral dangral is offline Forum Advisor  
Usuario Registrado
  
 

Fecha: octubre 2002
Puestos: 699
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 "
  #4 (Enlace permanente)  
Old 02-20-2003
lcfoo lcfoo is offline
Usuario Registrado
  
 

Fecha: octubre 2002
Ubicación: Malasia
Puestos: 14
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.
  #5 (Enlace permanente)  
Old 02-21-2003
oombera's Avatar
oombera oombera is offline Forum Advisor  
Usuario Registrado
  
 

Fecha: agosto 2002
Lugar: Cleveland, OH
Puestos: 804
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
Closed Thread

Marcadores

Herramientas de hilo Buscar en este Hilo
Buscar en este Hilo:

Búsqueda avanzada
Modos de visualización Vota a este hilo
Vota a este hilo:

Normas de envío
puede que no nuevo puesto de hilos
puede que no enviar respuestas
puede que no enviar archivos adjuntos
puede que no editar sus puestos

Código BB es Encendido
Emoticones son Encendido
[IMG] código Encendido
Código HTML es Apagado
Trackbacks son Encendido
Pingbacks son Encendido
Refbacks son Encendido




Todas las horas son GMT -4. La hora es 01:38 PM.


Powered by: vBulletin, Copyright © 2000 - 2006, Jelsoft Enterprises Limited. Traducciones de idiomas Powered by .
vBCredits v1.4 Copyright © 2007 - 2008, PixelFX Estudios
El UNIX y Linux Foros Contenido Copyright © 1993-2009. Todos los derechos Reserved.Ad Gestión por RedTyger

Las direcciones URL de contenido vBSEO 3.2.0