Foro - Perl en Español

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 ) { ...

He buscado en los foros y entré en los tutoriales y no encuentro una forma de hacerlo, casi estoy seguro que va a ser muy sencillo obtener lo que necesito pero no tengo la idea de cómo hacerlo, va sin más charla, aquí está mi problema.

Estoy armando una aplicación web en la cual quiero poner algunos datos interesantes al pie de la página, los que me interesan son principalmente.

+ Un código para ...

El pasado día 11, Larry Wall se acercó a la empresa Holandesa Booking.com para dar su charla sobre Perl 6 y, aprovechando que estaba por allí, recibió un "pequeño" cheque de $50.000 para la Fundación Perl, para el desarrollo y mantenimiento del lenguaje Perl en general, y de Perl 5.10 en particular.

"Sin Perl y sus dedicados desarrolladores, Booking.com no hubiera conseguido la flexibilidad y eficiencia que se requería para crecer tan rápidamente como lo ...

Nicholas Clark ha anunciado hoy la salida de la versión 5.8.9, con un montón de cambios.

http://barrapunto.com/articles/08/12/15/0050206.shtml

Ya es la 2ª noticia que veo en barrapunto que le dan feo a Perl...

Saludos

Hola,

estoy intentando hacer un script que lee un fichero en el que aparece información sobre algunos ficheros que están alojados en distintos servidores que debería después bajar mediante FTP.

El fichero es algo así:
=============================================================================
Estaciones que hay que procesar
=============================================================================

=============================================================================
SERVER : IGS
=============================================================================
ADDRESS : laquesea
LOGIN : elquesea
PASSWORD : elquesea
DATA : directorioRemoto
=============================================================================
STATION 1 : EBRE
STATION 2 : TLSE
STATION 3 : YEBE
=============================================================================

=============================================================================
SERVER ...

Hola. ¿Cómo están? Estoy con un pequeñísimo problema. Es la maldita función microtime() de PHP que quiero hacerlo en Perl.

Según la descripción dice que "devuelve la marca de tiempo Unix actual con micro-segundos".

En otras palabras esto genera así siendo la columna izquierda los segundos corridos.

Code: Seleccionar todo

0.34375100 1229296403
0.54687700 1229296416
.
.
.
etc.

No tuve mucha suerte con Google pero me encontré con algo de Time::HiRes.

El problema es que aún no sé ...