Foro - Perl en Español

por **escanda** » 2008-07-18 13:58 @623

Hola, ¿qué tal?

Me dirijo a ustedes en busca de ayuda.

Tengo una aplicación con la que accedo a un directorio y me fijo los archivos .txt que hay, y me los traigo.

Lo que necesito es que me los devuelva ordenados por fecha de creación.

Espero su ayuda..
gracias.

Acá les dejo el código actual, así se entiende un poco más.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#Abrimos el directorio

my$dir='\Desktop\Archivostxt/';

opendir(DIR,$dir)ordie$!;

#lo abrimos.
while(my$file=readdir(DIR)){


nextunless(-f "$dir/$file");

# buscamos solo los archivos .txt
nextunless($file=~m/\.txt$/);
@propiedades=stat($file)<=>time();
#@propiedades = time() - stat($file);
my@archivos=$file;
print("@archivos");
print("@propiedades");
}
closedir(DIR);Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Eso me devuelve text1.txttext2.txt y lo que haya, pero necesito que me los devuelva ordenados por fecha de creación.

#!/usr/bin/perl
use strict;
use warnings;

my$dir='/home/explorer/Documents/';
my@archivos;

opendir(DIR,$dir)ordie"$!\n";

while(my$fichero=readdir(DIR)){

# buscamos solo los archivos .txt
nextif$fichero!~m/\.txt$/;

my$archivo=$dir.$fichero;

push@archivos,[((stat($archivo))[10]),$fichero];
}

#use Data::Dumper;
#print Dumper(@archivos);

my@archivos_ordenados=sort{$a->[0]<=>$b->[0]}@archivos;

foreachmy$fichero(@archivos_ordenados){
print$fichero->[1],"\n";
}

closedir(DIR);Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Usamos el valor número 10 del valor devuelto por stat(), para comparar por la fecha de creación.

La solución de kidd es mucho más elegante, desde luego.

por **escanda** » 2008-07-21 08:12 @383

Muchas gracias por la respuesta, pero tengo un problema: me dice que hay un error al imprimir

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

("print $fichero->[1], "\n";")Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Por qué motivo puede ser?
Desde ya muchas gracias.

por **explorer** » 2008-07-21 08:15 @385

Creo que esa línea está mal escrita...

Seguro que el error, si no es esta línea, está en una línea anterior.

Para comprobar que el programa está bien escrito, ejecuta perl -c programa.pl.

por **escanda** » 2008-07-21 08:25 @392

Ahora me encargaré de eso, pero también me aparece este error:

Código: Seleccionar todo: "Argument "prueba.txt" isn't numeric in numeric comparision <<=>> at directorio"

¿Por qué puede ser eso? Si se supone que me compara las horas de creación.

por **explorer** » 2008-07-21 12:05 @545

No está bien creado la estructura de @archivos.

Descomenta las líneas

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Data::Dumper;
print Dumper(@archivos);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y podrás ver qué estructura tiene. Debe aparecer un array de arrays. Los arrays pequeños deben contener, en su primer elemento, la fecha de creación y el segundo, el nombre.

Si no hay dos componentes, y solo uno, entonces es que stat() no ha devuelto nada en su componente número 10. Eso depende del sistema operativo en que te encuentres. ¿Cuál es?

Prueba a cambiar 10 por 9, para ver si así te devuelve algo. Estarás cambiando la fecha de creación por la fecha de última modificación.

Prueba también a ejecutarlo antes desde la línea de comandos, y así sabes si devuelve algo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

perl-le'print +(stat("fichero.txt"))[10]'Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **Jabarca** » 2008-08-18 17:09 @756

Hola
Primero agradecer el espíritu de colaboración para con los que estamos comenzando en esto =) "Muchas Gracias"

Bueno, soy principiante en esto y me han dado una tarea muy similar al problema de escanda, nada más que solo necesito recuperar el penúltimo archivo del directorio.

He intentado direccionarlo sin el foreach, directamente, pero no he dado con la solución

si me dan una mano se los agradeceré.

Saludos

por **explorer** » 2008-08-18 17:57 @790

Bienvenido a los foros de Perl en Español, Jabarca.

Si en @archivos están todos los archivos... y $archivos[-1] almacena el último archivo... entonces $archivos[-2] almacenará el penúltimo...

por **Jabarca** » 2008-08-19 08:54 @412

Explorer, primero muchas gracias por atender mi consulta

Ahora mejor expongo el código que estoy usando para que se pueda entender mejor:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use warnings;

my$dir="\\\\X1pegasus01\\LogCustomPage\\";
my@archivos;
opendir(DIR,$dir)ordie"$!\n";

while(my$fichero=readdir(DIR)){
nextif$fichero!~m/\.txt$/;
my$archivo=$dir.$fichero;
push@archivos,[((stat($archivo))[10]),$fichero]
}

my@archivos_ordenados=sort{$a->[0]<=>$b->[0]}@archivos;
print$archivos_ordenados[-2],"\n";
closedir(DIR);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

La salida de este código es: ARRAY(0x184b310)

Para ver el contenido de @archivos_ordenados

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

foreachmy$fichero(@archivos_ordenados){
print$fichero->[1],"\n";
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

el resultado es:

Código: Seleccionar todo: 2008 08 11.txt 2008 08 12.txt 2008 08 13.txt 2008 08 14.txt 2008 08 15.txt 2008 08 16.txt 2008 08 17.txt 2008 08 18.txt 2008 08 19.txt

Donde yo necesito recuperar el archivo del día anterior “2008 08 18.txt” para pasarlo como parámetro a una función.

Otra cosa, ¿algún consejo para un buen manual en español? Aun no he podido hacerme de un libro así que me limito a manuales en la red. Nuevamente, muchas gracias.

Foro - Perl en Español

Comparar archivos por fecha

Comparar archivos por fecha

Publicidad

¿Quién está conectado?