Foro - Perl en Español

Hola buenas noches,

¡A ver si alguien me puede ayudar!

En el siguiente script abro un directorio. Tengo unos 66 ficheros pero solamente me interesan los 16 primeros.

Estos ficheros, tienen el siguiente formato:

gfs.t00z.pgrbf00.grib2
gfs.t12z.pgrbf03.grib2

es decir, solamente cambia la cifra que está detrás de la 'f' con intervalos de 3 (f00, f03, f06, f09, f12...).

Si introduzco en @files el nombre de todos los ficheros hasta el número 16, los elige y luego ejecuta el ejecutable del programa wgrib2 sin problemas. Pero es una manera poco elegante.

¿Cómo puedo decir dentro o fuera de @files que solamente considere los primeros 16 ficheros, sin tener que escribirlos?

Y que luego se acuerde de cada uno al ejecutar el

@args = ("wgrib2 $_ -s | grep ':VGRD:10 m ' |wgrib2 -i $_ -text $Dadesdiari/VGRD10m$data.dat ");

Muchas gracias y buena Semana Santa a todos

chdir("$gribdir");
@files = ("gfs.t12z.pgrbf00.grib2"..."gfs.t12z.pgrbf48.grib2");
foreach(@files)
# open(LS, "ls $gribdir/gfs.t* |") or die $!;
# while
#(<LS>)
{
# $data = 0;
# chomp($input_root_name = $_);
# @path = $input_root_name ;
# $output_root_name = $path[$#path];
# $data = $data_inici;

$data = sprintf("%02d", $data);
@args = ("wgrib2 $_ -s | grep ':VGRD:10 m ' |wgrib2 -i $_ -text $Dadesdiari/VGRD10m$data.dat ");
system(@args) == 0 or die "system @args failed: $?";
@args = ("wgrib2 $_ -s| grep ':UGRD:10 m ' | wgrib2 -i $_ -text $Dadesdiari/UGRD10m$data.dat ");
system(@args) == 0 or die "system @args failed: $?";
escriu("arxiu txt generat");
# open(UGRD10m$data.dat,">$yyyymmdd") or die $!;
# print UGRD10m$data.dat "$yyyymmdd";
# close (UGRD10m$data.dat);
$interval_hours = 3;
$data = $data + $interval_hours;
}
# close(LS);
}

Así queda un poco más bonito


¡Acuérdate de ponerle sintaxis Perl a tus códigos cuando los publiques aquí!

Hola explorer, buenas noches y gracias,

Lo he cambiado y me queda:


chdir("$gribdir");
foreach(@files[0..4])
{
$data = sprintf("%02d", $data);
@args = ("wgrib2 @files -s | grep ':VGRD:10 m ' |wgrib2 -i @files -text $Dadesdiari/VGRD10m$data.dat ");
system(@args) == 0 or die "system @args failed: $?";
@args = ("wgrib2 @files -s| grep ':UGRD:10 m ' | wgrib2 -i @files -text $Dadesdiari/UGRD10m$data.dat ");
system(@args) == 0 or die "system @args failed: $?";
escriu("arxiu txt generat");

$interval_hours = 3;
$data = $data + $interval_hours;
}

Me salen errores ahora, pregunta, dentro de

@args = ("wgrib2 @files -s | grep ':VGRD:10 m ' |wgrib2 -i @files -text $Dadesdiari/VGRD10m$data.dat ");

¿Puedo poner el array @files? El fichero de salida depende del $data que va sumando 3 horas.

Me sale este error si tomo 4 ficheros

Use of uninitialized value $data in sprintf at ./VENT_GFStoWWW3.pl line 109.
Use of uninitialized value $files[0] in join or string at ./VENT_GFStoWWW3.pl line 110.
Use of uninitialized value $files[1] in join or string at ./VENT_GFStoWWW3.pl line 110.
Use of uninitialized value $files[2] in join or string at ./VENT_GFStoWWW3.pl line 110.
Use of uninitialized value $files[3] in join or string at ./VENT_GFStoWWW3.pl line 110.
Use of uninitialized value $files[0] in join or string at ./VENT_GFStoWWW3.pl line 110.
Use of uninitialized value $files[1] in join or string at ./VENT_GFStoWWW3.pl line 110.
Use of uninitialized value $files[2] in join or string at ./VENT_GFStoWWW3.pl line 110.
Use of uninitialized value $files[3] in join or string at ./VENT_GFStoWWW3.pl line 110.

*** FATAL ERROR: no input file ***


*** FATAL ERROR: no input file ***

system wgrib2 -s | grep ':VGRD:10 m ' |wgrib2 -i -text /home/sam/opt/wwatch3/v2.22/ASCII/2012040512/VGRD10m00.dat failed: 2048 at ./VENT_GFStoWWW3.pl line 111.

Hola explorer, muchas gracias, consultas

1- Sobre qw

@files = qw( gfs.t12z.pgrbf00.grib2 gfs.t12z.pgrbf48.grib2 );

¿toma todos los nombres que hay entre estos dos ficheros?

2- Sobre qq
$args = qq(wgrib2 $_ -s | grep ':VGRD:10 m ' |wgrib2 -i $_ -text $Dadesdiari/VGRD10m$data.dat);
system($args) == 0 or die "system $args failed: $?";

El qq, ¿qué significa?

Gracias

enric73 escribiste: foreach(@files[0..4])
...;

@args = ("wgrib2 @files -s | grep ':VGRD:10 m ' |wgrib2 -i @files -text $Dadesdiari/VGRD10m$data.dat ");

¿Te estás dando cuenta de lo que estás poniendo?

Estás haciendo un bucle de 5 vueltas (una por cada archivo de los 5 primeros), y en cada una de las vueltas, estás metiendo todos los archivos en la ejecución de wgrib2...

enric73 escribiste:1- Sobre qw

@files = qw( gfs.t12z.pgrbf00.grib2 gfs.t12z.pgrbf48.grib2 );

¿toma todos los nombres que hay entre estos dos ficheros?

No. Solo toma esos dos.

El operador qw() sirve para crear una lista de elementos a partir de "palabras" (una "palabra" es aquello que está rodeado por espacios).

Así, la líneaes lo mismo que si la hubiéramos escrito comopero sin tantas comillas. Además, con qw() puedes colocar las "palabras" de forma más libre (recuerda que no se toma en cuenta el espacio en blanco):

Más información en tu propio ordenador en perldoc -f qw

enric73 escribiste:2- Sobre qq
$args = qq(wgrib2 $_ -s | grep ':VGRD:10 m ' |wgrib2 -i $_ -text $Dadesdiari/VGRD10m$data.dat);
system($args) == 0 or die "system $args failed: $?";

El qq, ¿qué significa?

Dobles comillas.

¡Buenos días, explorer!

Gracias, ¡sí me di cuenta del gazapo del @files!

Sabes, no entiendo muy bien el operador qw(). En este caso, sirve para crear una lista de elementos a partir de "palabras", pero en este caso solamente aparecen los nombres del primero y último fichero, no se da ninguna información del resto de palabras (ficheros). Después sí que con el for (@files) ¡seleccionamos 16 files! Pero no me queda clara la utilidad del operador qw() en este caso. Disculpad que a veces me cuesta un poco.

Me ha salido el siguiente error, no encuentra los ficheros...



El script lo he dejado para 4 ficheros y de la siguiente manera



¡Gracias!

enric73 escribiste:Sabes, no entiendo muy bien el operador qw(). En este caso, sirve para crear una lista de elementos a partir de "palabras", pero en este caso solamente aparecen los nombres del primero y último fichero, no se da ninguna información del resto de palabras (ficheros). Después sí que con el for (@files) ¡seleccionamos 16 files! Pero no me queda clara la utilidad del operador qw() en este caso. Disculpad que a veces me cuesta un poco.

Hay dos archivos porque en tu código original solo aparecen dos archivos.

El operador qw() sirve para hacer una lista de cosas. El que tengas dos o doscientas, depende de ti. Yo solo puse dos porque solo pusiste dos en el código original. Si vas a conseguir el listado de archivos de otra manera, por ejemplo con '<*>', entonces no te hace falta, desde luego. El qw() es para cuando tienes que escribir la lista 'a mano' en el propio programa.

Mira otro ejemplo de uso del qw():


Esa línea genera una lista de elementos, que van quedando en @palabras_del_quijote, de la misma manera que si lo hubiéramos escrito así:

pero... como ves... nos ahorramos muuchas comillas, y muuuchas comas.

¡Buenos días, explorer!

Gracias por el mensaje anterior, ¡me quedó claro! Mejor así, si uno puede ahorrarse comillas ¡mucho mejor! He introducido el nombre de los ficheros y ya está.

Tengo dos consultas:

1. ¿El operador qw() permite en su interior un contador? ¿O tendría que hacer un array con el for() y luego meter el array dentro del operador qw?

for($i = 0; $i < 15; $i++){
my @file = qw( gfs.t00z.pgrbf$i.grib2 );
}

2. Es sobre concatenar. Tal como tengo la línea

1 => strftime('%Y%m%d' , localtime)." ".$hs

me queda un espacio (ver en el ejemplo de abajo) entre

2012040600 000000

. Si quiero añadir 3 espacios, ¿simplemente he de dejar 3 espacios dentro de

1 => strftime('%Y%m%d' , localtime)." ".$hs

? Cuando lo hago, la segunda cifra me salta de línea...

Es decir, en vez de salir

2012040600 000000

con 3 espacios, aparece un salto de línea entre las dos cifras ¿Es normal? ¿O para introducir espacios no se hace de esta manera y voy errado?

2012040600
000000



# Posem la data
my $llarg = $tabla->length();
$tabla->row_set($llarg, {
1 => strftime('%Y%m%d' , localtime)." ".$hs,
});



$tabla->row_move($llarg, 0);

Ejemplo de salida con un simple espacio entre el localtime y $hs:

2012040600 000000
-6.27 1.56 -6.21 1.13 -5.72 0.80 -5.12 0.29 -4.43 0.14
-6.30 1.45 -6.23 1.02 -5.73 0.70 -5.13 0.20 -4.43 0.06
-6.32 1.34 -6.25 0.91 -5.74 0.60 -5.13 0.11 -4.43 -0.01
-6.35 1.23 -6.26 0.80 -5.75 0.50 -5.13 0.02 -4.43 -0.09
-6.37 1.12 -6.28 0.69 -5.76 0.40 -5.13 -0.07 -4.43 -0.17

¡¡¡¡Muchas gracias!!!!