Foro - Perl en Español

Hola a todos.

Estoy aprendiendo Perl, y he escrito un pequeño programa que no acaba de funcionar del todo. El fichero de entrada simple.tr muestra los diferentes eventos de una simulación. Debido a que ocurren muchos en momentos muy puntuales, quiero seleccionar eventos para hacer una gráfica, que sea entendible. Así que lo que hay que hacer es a través de una variable llamada paso, ir incrementando el tiempo y seleccionando eventos.

A continuación os ...

Hola, buenas, quiero hacer un programa que haga tablas en Latex a partir de documentos etiquetados en XML para que la información sea más legible. A continuación voy a poner una muestra de un texto de etiquetas en XML con las que trabajo.

<etiquetas>
<PI ID="8aa" Lema1="principio" GC="Adverb" DP="1" Range="Operator" FU="No" MET="No" DR="Coargumentation1" ED="No" MOD="No" EVI="No" SA="No" DEX="No">en parte</PI>

<PI ID="9a" Lema1="aparte" Lema2="de" GC="Adverb" DP="1" Range="Operator" FU="No" MET="No" DR="Coargumentation1" ED="No" MOD="No" EVI="No" SA="No" DEX="No">aparte de</PI> ...

¡Hola de nuevo! Me han surgido otros problemas (...), que no soy capaz de resolver...


1/ Por línea de comandos, introduzco entre otros, el nombre del archivo que tengo que abrir, que va en la posición 0 y hago lo siguiente:

$archivo = $ARGV;
y más tarde en una subrutina a la que paso correctamente los datos por valor:
unless ( open(ARCHIVO, $archivo) ) {
print "File cannot be opened.";
exit;
}

my @datos = ...

Jeje, no sé si es posible, pero a ver, yo lo planteo.

Tengo un script en Perl, la verdad es bastante extenso y no entiendo mucho código del que contiene, así que no me atrevo a aventurarme a modificarlo para que ese script me ponga en un archivo txt los resultados.

Me explico, tengo un script llamado, programa.pl y otro llamado generador.pl.

El programa.pl acepta argumentos de la consola, por ejemplo:

programa.pl 5
programa.pl 12 ...

Hola, qué tal verán soy nuevo en Perl pero tengo una situación que necesito sacar es la siguiente:

Necesito hacer un generador de códigos de barra para imprimirlos claro y guardarlos en una tabla de una base de datos en MySQL.

No sé si esto será posible y de serlo si me puedan ayudar. Gracias de antemano. Cualquier info es valiosa.

Bien, tengo que hacer un proyecto para la uni y me están surgiendo dudas tontas.

1/ En un bucle que estoy haciendo, la idea es que pare cuando no exista un valor asociado a una key. ¿Cómo se escribe ese "no exista"?

2/ ¿Qué consume más o a cuál le cuesta menos al ordenador acceder, un array que sea una lista de unos 600 elementos o un hash que contenga esos 600 elementos?

Muchísimas gracias. ...

Hola, ¿cómo están?, recorriendo Internet no me había percatado que existía un foro tan bueno de Perl :shock: , y quería preguntarles si me pueden ayudar con un ejercicio:

Me piden calcular la moda, media, mediana de un arreglo.

Las 2 últimas las tengo hechas, pero no sé cómo sacar la moda.

Adjunto lo que llevo:

#!/usr/bin/perl
print"Ingrese el largo del arreglo"."\n";
$n=<stdin>;
print"Ingrese los datos del ...

Hola a todos, tengo el siguiente script que hice para descargar datos de todo un año y todo funciona bien hasta que llega al mes de agosto, en donde he variado las formas de escribir el 8 que corresponde a ese mes pero siempre me sale esto: Use of uninitialized value in foreach loop entry at ./demas.pl line 15. Aquí esta el script:

#!/usr/bin/perl

use strict;
my ($syscmd, $vn, $opt, @filelist);
my $web = "https://dss.ucar.edu/datazone/dsszone/ds083.2/"; ...

¡Buenas!

Vuelvo a la carga con mis preguntas.

Al turrón: tengo que parsear un documento XML que no cumple ningún estándar de XML, tiene la extensión de xml pues porque tenían que ponerle una. Ciertamente se parece mucho a xml y usa las mismas jerarquías de estructuras, pero ni cumple DTD ni Schema. Esto descarta poder utilizar módulos de parseo de Perl, con lo que debo de hacerlo con expresiones regulares.

Vale, el fichero "xml" ...

Hola amigos del foro. Tengo el siguiente script y quiero que me ayuden a reducirlo.

#!/usr/bin/perl -w

use LWP::Simple;
use strict;
use warnings;

# Constantes
my $URL_BASE = 'http://www.ncdc.noaa.gov/gibbs/image/GOE-12/IR';
my $IMG_FMT = '%04d-%02d-%02d-%02d';
$|++;

# Bajar los imágenes
# Para los meses que tienen 31 días:
foreach my $anno ( 2004 ) {
foreach my $mes ( 1, 3, 5, 7, 8, 10, 12 ) {
foreach my $dia ( 1 .. 31 ) { ...