Foro - Perl en Español

Bueno, ya encontré una solución. Difiere en un paso, pero el resultado sale.

El operador '//' (or-definido) es nuevo en Perl v5.10, así que por eso hay un 'use v5.10;' al principio.

La diferencia con la solución mía propuesta antes, es que no hace falta llamar a col_set(). Según la documentación, se puede acceder y cambiar los valores individuales de cada celda de la tabla de forma directa, lo cual es lo lógico si se trata de un módulo que nos permite manipular datos en forma de tabla.

Hola explorer,

Gracias, tendré que ponerme a fondo con el código, yo hice una chapuza y pasé de un dat de 40000 filas a uno de 16 millones de filas y la mayoría vacías...

Estaba utilizando estas comandas...
$tabla->col_get( $col );
$tabla->length( $col );
$col = sprintf("%.2f", $col);
$tabla->col_set( $col );

He ejecutado el script y me funciona sin errores de compilación, no he tenido que utilizar el cpan para instalar ningún módulo.

Esta tarde voy a escribir un poco de código para utilizar argumento de entrada, adjuntaré lo que hago, hasta luego, y muchas gracias, con esto del tratamiento de tablas iba muy perdido, pero veo que es muy práctico.

Una consulta, de paso, ¿con Perl hay funciones de interpolación gráfica?

Es decir, a partir de una serie de datos con sus coordenadas lat/lon u otras, poder interpolar sobre un gráfico en colores, ¿es posible de hacerlo con Perl? ¿O mejor que busque otro programa, como idl...?

Gracias.

Hola Explorer,

Muchas gracias, unas preguntas... sobre el código en

-my @indices = @{$tabla->all()}; # Índices de las filas podria utilizar tambien $table->fieldlist_all()?
--my $ancho_maximo = 0; # Calcularemos el ancho más grande, partimos del valor 0?
--= sprintf "%*s", $ancho_maximo, $filas->[$j] // ''; Esta linea del formato exactamente que hace?



-Otra consulta, me he dado cuenta que algunas cifras solamente tienen un decimal o zero, y quiero tenerlos todos con dos decimales, puedo utilizar $rounded = sprintf("%.2f", $number);? es decir $filas->[$j] # Modificamos la fila $j-ésima
= sprintf "%.2f", $filas->[$j] // ''?





Buenas tardes, y gracias.

enric73 escribiste:Una consulta, de paso, ¿con Perl hay funciones de interpolación gráfica?

Es decir, a partir de una serie de datos con sus coordenadas lat/lon u otras, poder interpolar sobre un gráfico en colores, ¿es posible de hacerlo con Perl? ¿O mejor que busque otro programa, como idl...?

En tiempos, de forma profesional, yo usaba PDL::Transform::Cartography y Geo::Proj4, con lo que no había problemas en interpolar posiciones en mapas, en múltiples proyecciones.

En CPAN hay algunos más.

La curva de aprendizaje es altísima (más bien es una escalada), pero la ventaja es que una vez puesto en marcha puedes automatizar muchas tareas de procesamiento de datos sin depender del IDL, que creo que, además, es propietario.

enric73 escribiste:unas preguntas... sobre el código en

-my @indices = @{$tabla->all()}; # Índices de las filas podría utilizar también $table->fieldlist_all()?

No. all() devuelve los índices para acceder a las filas, mientras que fieldlist_all devuelve los nombres de las columnas.

enric73 escribiste:--my $ancho_maximo = 0; # Calcularemos el ancho más grande, ¿partimos del valor 0?

Sí.

enric73 escribiste:--= sprintf "%*s", $ancho_maximo, $filas->[$j] // ''; Esta linea del formato exactamente ¿qué hace?

$filas->[$j] nos devuelve el valor $j-ésimo de la fila $filas.
sprintf() nos formatea ese valor según lo que dice la cadena de formato "%*s".
La cadena de formato quiere decir: «coge el siguiente argumento de los que se han pasado a sprintf() y ponlo en lugar del '*'. Como ese argumento es $ancho_maximo, lo que estamos haciendo es definiendo el ancho de una cadena de texto. Ejemplo: si ese ancho es 6, la cadena de formato queda "%6s" que quiere decir que en la salida sprintf() debe generar una cadena de caracteres de 6 posiciones, y meter dentro de ella el siguiente argumento, que es el valor de la fila. De esta manera, el valor queda "metido" dentro de un espacio más grande, y ajustado a la derecha. O sea, como queremos que quede.

enric73 escribiste:-Otra consulta, me he dado cuenta que algunas cifras solamente tienen un decimal o cero, y quiero tenerlos todos con dos decimales, ¿puedo utilizar $rounded = sprintf("%.2f", $number);? es decir $filas->[$j] # Modificamos la fila $j-ésima
= sprintf "%.2f", $filas->[$j] // ''?

Sí, claro. Pero debes indicar además el ancho máximo calculado antes, para que lo haga todo en un solo paso.

Muchas gracias por la ayuda y explicaciones explorer. Buenas noches.

Hola explorer, he introducido dos lineas en el script para que todos los valores tengan dos decimales, me ha salido. Puedes mirar las dos lineas para saber si es la mejor manera de hacerlo? muchas gracias

#!/usr/bin/env perl
use v5.10;
use Data::CTable;
use POSIX 'strftime';

# Leemos los ficheros
my @archivos = <dir/*txt>; # Archivos a leer

my $tabla = Data::CTable->new; # Tabla

for my $i ( 1 .. @archivos ) { # Para todos los archivos

my $col = Data::CTable->new; # Creamos un objeto tabla, que tendrá solo una columna

$col->read( # Leemos
_FileName => $archivos[$i-1], # este archivo
_HeaderRow => 0, # que no tienen cabeceras de campos
_FieldList => [ $i ], # porque las prefabricamos
_CacheOnRead => 0, # y no queremos caché
);

$col->row_delete(0); # Eliminamos la primera línea

$tabla->combine( $col ); # Combinamos la columna con la tabla
}

for my $i ( 1 .. @archivos ) { # Volvemos a leer las columnas
my @indices = @{$tabla->all()}; # Índices de las filas
my $filas = $tabla->col($i); # Valores de las filas de la columna $i-ésima

my $ancho_maximo = 0; # Calcularemos el ancho más grande

for my $j (@indices) { # Para todos los índices de las filas de la columna,

my $valor = $filas->[$j] // ''; # Leemos el valor de la celda
$files->[$j]
= sprintf "%.2f", $valor, $files->[$j] // '';
my $ancho = length $valor; # Sacamos el ancho de la fila $j-ésima

if ($ancho_maximo < $ancho) { # Si su ancho es aún más grande,
$ancho_maximo = $ancho; # lo apuntamos
}
} # ya sabemos el ancho máximo

for my $j (@indices) { # Para todos los índices de las filas de la columna,
$filas->[$j] # Modificamos la fila $j-ésima
= sprintf "%*s", $ancho_maximo, $filas->[$j] // '';
}
} # Ya están modificados los valores de la tabla

my $largo = $tabla->length();
#say "Largo: [$largo]";

# Agregamos la fecha
$tabla->row_set($largo, { 1 => strftime '%Y%m%d%H', localtime});
$tabla->row_move($largo, 0);
#print @{$tabla->fieldlist()}, "\n";

# Escribimos la tabla
$tabla->write( # Escribimos
_FileName => 'vientos.dat', # este archivo
_HeaderRow => 0, # sin cabeceras de campos
_FDelimiter => "\t", # y columnas separadas por tabuladores
);



En azul está el codigo introducido,
antes en alguna dato tenia un decimal o ninguno
4.17 3.03 3.49 3.86 2.7 3.18 3.52 3.85
4.22 3.09 3.56 3.93 2.76 3.25 3.58 3.92
4.27 3.15 3.62 4 2.82 3.31 3.64 3.99
4.31 3.2 3.69 4.06 2.88 3.38 3.71 4.05
4.36 3.26 3.75 4.12 2.94 3.44 3.77 4.12
4.4 3.31 3.81 4.18 3 3.5 3.83 4.18
4.45 3.37 3.87 4.25 3.05 3.56 3.88 4.24
4.49 3.42 3.93 4.3 3.11 3.62 3.94 4.3
4.53 3.47 3.99 4.36 3.16 3.68 4 4.36
4.56 3.53 4.05 4.42 3.22 3.74 4.05 4.42
4.6 3.58 4.1 4.48 3.27 3.79 4.11 4.47
y ahora dos decimales en todos
4.17 3.03 3.49 3.86 2.70 3.18 3.52 3.85
4.22 3.09 3.56 3.93 2.76 3.25 3.58 3.92
4.27 3.15 3.62 4.00 2.82 3.31 3.64 3.99
4.31 3.20 3.69 4.06 2.88 3.38 3.71 4.05
4.36 3.26 3.75 4.12 2.94 3.44 3.77 4.12
4.40 3.31 3.81 4.18 3.00 3.50 3.83 4.18
4.45 3.37 3.87 4.25 3.05 3.56 3.88 4.24
4.49 3.42 3.93 4.30 3.11 3.62 3.94 4.30
4.53 3.47 3.99 4.36 3.16 3.68 4.00 4.36
4.56 3.53 4.05 4.42 3.22 3.74 4.05 4.42
4.60 3.58 4.10 4.48 3.27 3.79 4.11 4.47

No, no hace falta eso. Te dije que lo podías hacer todo en una sola pasada:

El parámetro $ancho_máximo lo metemos como primera parte de %f; luego sigue la precisión (dos decimales), y luego, al final, donde está el dato que queremos, $filas->[$j], le ponemos un '// 0' para el caso de que si no está definido, pongamos un valor 0 por defecto.

Buenos días, explorer

¡Tengo una consulta para hacerte!

En el programa, ahora puede tratar archivos que empiezan por UGRD10*.dat, pero también necesito abrir archivos VGRD10*.dat y ordenarlos por horas de forma alternativa (la hora está en el final de cada fichero: _hh.dat). Por ejemplo, UGRD10_00.dat, VGRD10_00.dat, UGRD10_03.dat, VGRD10_03.dat.

He de añadir my @archivos2 = </home/enric/ASCII/VGRD10m*.dat>; pero para que aparezcan las columnas alternadas, una de la componente U del viento y otra de la componente V del viento para una cierta hora (timestep), ¿cuál es la manera de hacerlo utilizando este script? ¿He de duplicar la tabla, hacer una my $tabla2?

¡Muchas gracias y buenos días!
-------------------------------------------------------------------------
#!/usr/bin/env perl
use v5.10;
use Data::CTable;
use POSIX 'strftime';

# Leemos los ficheros
my @archivos = </home/enric/ASCII/UGRD10m*.dat>; # Archivos a leer

my $tabla = Data::CTable->new; # Tabla

for my $i ( 1 .. @archivos ) { # Para todos los archivos

my $col = Data::CTable->new; # Creamos un objeto tabla, que tendrá solo una columna

$col->read( # Leemos
_FileName => $archivos[$i-1], # este archivo
_HeaderRow => 0, # que no tienen cabeceras de campos
_FieldList => [ $i ], # porque las prefabricamos
_CacheOnRead => 0, # y no queremos caché
);

$col->row_delete(0); # Eliminamos la primera línea

$tabla->combine( $col ); # Combinamos la columna con la tabla
}

for my $i ( 1 .. @archivos ) { # Volvemos a leer las columnas
my @indices = @{$tabla->all()}; # Índices de las filas
my $filas = $tabla->col($i); # Valores de las filas de la columna $i-ésima

my $ancho_maximo = 0; # Calcularemos el ancho más grande

for my $j (@indices) { # Para todos los índices de las filas de la columna,

my $valor = $filas->[$j] // ''; # Leemos el valor de la celda

my $ancho = length $valor; # Sacamos el ancho de la fila $j-ésima

if ($ancho_maximo < $ancho) { # Si su ancho es aún más grande,
$ancho_maximo = $ancho; # lo apuntamos
}
} # ya sabemos el ancho máximo

for my $j (@indices) { # Para todos los índices de las filas de la columna,
$filas->[$j] # Modificamos la fila $j-ésima
= sprintf "%*s", $ancho_maximo, $filas->[$j] // '';
}
} # Ya están modificados los valores de la tabla

my $largo = $tabla->length();
#say "Largo: [$largo]";

# Agregamos la fecha
$tabla->row_set($largo, { 1 => strftime '%Y%m%d%H', localtime});
$tabla->row_move($largo, 0);
#print @{$tabla->fieldlist()}, "\n";

# Escribimos la tabla
$tabla->write( # Escribimos
_FileName => 'vientos.dat', # este archivo
_HeaderRow => 0, # sin cabeceras de campos
_FDelimiter => "\t", # y columnas separadas por tabuladores
);

¿Como que para una determinada hora?

¿Quieres decir que debes meter en el programa la hora que quieres procesar?

¿O quieres leer todos los archivos, ordenarlos por hora, e intercalar los archivos 'U' y 'V'?

Y también, ¿eso quiere decir que la tabla solo tendrá dos columnas, la 'U' y la 'V'?