Foros del Web » Programación para mayores de 30 ;) » Programación General »

Sugerencias por favor

Estas en el tema de Sugerencias por favor en el foro de Programación General en Foros del Web. Hola, tengo como 10 directorios con 100 archivos cada uno, son puros datos (flotantes) que tengo que analizar (promedios, maximos, minimos). Los nombres de los ...
  #1 (permalink)  
Antiguo 29/03/2003, 09:05
 
Fecha de Ingreso: febrero-2003
Mensajes: 1
Antigüedad: 21 años, 9 meses
Puntos: 0
Sugerencias por favor

Hola, tengo como 10 directorios con 100 archivos cada uno, son puros datos (flotantes) que tengo que analizar (promedios, maximos, minimos). Los nombres de los archivos son numeros (multiplos de 100) y quiero hacer un programa que saque estas estadisticas y las ponga en otro archivo en cada directorio.
La neta me da weba hacerlo en C y me imagino que Perl es mas adecuado para hacer esto (me equivoco?), el problema es que no se mucho de Perl. Alguien tiene una sugerencia de como hacerlo o hay alguna herramienta (libre) para hacerlo?
Gracias ;)
  #2 (permalink)  
Antiguo 31/03/2003, 15:33
Avatar de SpiceMan  
Fecha de Ingreso: noviembre-2002
Mensajes: 160
Antigüedad: 22 años
Puntos: 0
Código:
#!/usr/bin/perl
 
use strict;
 
my $directorio = "/home/spiceman";
 
opendir DIR, $directorio || die "No se pudo abrir el directorio $directorio: $!\n";
my @files =  grep {! /^\./ && -f "$directorio/$_" } readdir(DIR);
close DIR;
 
foreach (@files) {
  print "Analizando datos de $_\n";
  open TEMPFILE, $_ || die "No se pudo abrir el archivo $directorio/$_: $!\n";
  my @datos = <TEMPFILE>;
# lo que se quiere hacer con los datos del archivo
  close TEMPFILE;
}
hacerlo recursivo te lo dejo a vos
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:07.