Foro - Perl en Español

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é ...

Hola, tengo un grave problema de control de flujo, resulta que no tengo control en Perl sobre el módulo de RSH, así que cuando hago un rsh a una máquina remota, y ésta a su vez tiene el servicio mal, no me da la posibilidad de hacer un timeout y proseguir por ejemplo con la siguiente máquina si tuviese un listado de maquinas para hacer diversas conexiones...

Este es el código, a ver si alguien ...

¿Cómo podría ver mi IP pública en Perl? Si, por ejemplo, tengo miip.es y viendo la IP que me da. ¿Existe algún módulo? ¿y cómo se usa?

En Slashdot vi la noticia, Mark Jason Dominus da su libro gratis, con algunas condiciones:

License reminder

Higher-Order Perl is copyright ©2005 by Elsevier Inc. Unauthorized reproduction or distribution is absolutely forbidden.

In particular, note that although the text is available for free, Higher-Order Perl is not in the public domain and is not available under a free license of any sort. I distribute it from this web site by virtue of special permission from ...

Adam Kennedy, conocido como Alias, ha conseguido que Microsoft ceda recursos, en forma de máquinas virtuales, para todos los desarrolladores registrados en CPAN, para que puedan probar sus módulos en los siguientes sistemas operativos:

Windows XP Professional
Windows Server 2003 32-bit
Windows Server 2003 64-bit
Windows Vista Ultimate
Windows Server 2008 32-bit
Windows Server 2008 64-bit

Enlace de la noticia (en inglés).
Comentarios en Perlmonks (en inglés).
Comentarios en Slashdot (en inglés).

Digamos que tengo un archivo de texto con varias palabras.

Lo que quiero hacer es poner en un archivo las palabras que empiecen por a o A , en otro archivo las que empiecen por b o B, etc...

Para esto tengo que hacer:

open A, '>>', 'A.txt' or die $!;
open B, '>>', 'B.txt' or die $!;
open C, '>>', 'C.txt' or die $!;
etc...

Quería saber si hay alguna forma de crear esos ...

Hola .

Pretendo compartir una pila (variable que todavía no he definido) entre dos o varios procesos. De momento estoy en la parte de análisis, sólo quiero asegurarme de que no me complico la vida a la hora de desarrollar. La pila o variable hash será manipulada por un proceso y leída por otro/s procesos.

He leído en el foro que podría usar shared-memory del CPAN. Al buscarlo en el CPAN, entiendo que sería el ...

He decido modificar la pregunta porque no llevaba a ningún lugar.
Pero en vez de aquello, tengo esto:

#Query que queremos que se ejecute, actualmente coge todos los valores que nos interesan y preparamos la conexión
# Hay que cambiar el número de la primera parte de la select con el valor del fichero de control
# donde el número debe de ir $sinc: desactivado para debug---------------------------------------------------->>|::::::::::|
my $sql1 = qq(select service_name, datetime, severity, end_datetime ...

En Youtube, hechos por el Instituto Indio de Tecnología. Cada uno dura una hora, aprox.

1. Perl - Part I
2. Perl - Part II
3. Perl - Part III
4. Perl - Part IV

Atención, que hay errores en las diapositivas. Interesante ver cuáles son antes de que las descubra el ponente.

Más vídeos en Perlmonks.