Foro - Perl en Español

He hecho un intento fallido de crear un scripts que me busque palabras claves dentro de un texto y que me los guarde dentro de otro texto.

Por ejemplo tengo cuatro bases de datos y quiero extraer únicamente los correos de usuarios para enviarles una notificación de que el sitio ya cerró y para eso necesito un script que busque palabras completas que contengan la letra @ y que filtre el carácter de comilla pero ...

@palabra=("tarde","lunes","@@hola","adios@@hola");

for ($i=0;$i<=3;$i++)
{
print "$palabra\n\n";
}

Resultado:

Code: Seleccionar todo

tarde

lunes

@

adios@

Las dos últimas no se pintan completamente.

Saludos, Perleros. Tengo el siguiente código que me comprime un montón de archivos en 3 paquetes. Todo funciona bien, pero el problema llega los días 31. Ese día no hace el proceso. ¿Alguna idea de qué es lo que esté pasando?

Saludos.

#!/usr/bin/ksh

. $HOME/.profile

export COLECTORHOME=/export/home/colljvip/LatJitterLan_thread
export AYER=`date '+%y:%m:%d' | awk -F":" '{printf"20%2d%2d%2d\n",$1,$2,($3-1)}' | sed 's/ /0/g'`;
export AYER=$1

export prefix=pruebas_latencia

cd ${COLECTORHOME}/historico/data

echo ${AYER}0
gzip ${prefix}${AYER}0*
tar -cvf Tar_${AYER}0.tar ${prefix}${AYER}0*
rm ${prefix}${AYER}0*

echo ...

Buenas, necesitaría si es posible una pequeña ayuda con esto.

Tengo que realizar un pequeño sistemita de agregado de información a la base de datos, sería lo siguiente.

Tengo un Select con los apellidos y por cada apellido que elijo tiene que desplegarse otro Select con nombres.

Hasta ahí algo normal, pero después tengo que, mediante un botón y una caja de texto, agregar los nombres en el Select de nombres, esto teniendo en cuenta ...

Hola a todos

Tengo una pregunta referente a poder calcular el tamaño de varios archivos, es decir que el usuario pueda subir archivos pero que se vaya calculando el tamaño y este no debe de sobrepasar 1 MB.

Con esta línea declaro de cuánto debe ser el tamaño de cada archivo, y sí funciona, pero ahora me piden que si suben varios la suma no debe pasar de 1 MB.

$CGI::POST_MAX=1024 * 1000 # 1 ...

Hola a todos,

Tengo una duda que supongo que sabréis responder rápidamente.

Estoy trabajando con un fichero XML y con el modulo XML::Simple y tengo una pequeña duda.

<PathElements>
<Node1>
<Path>__MDW_ROOT__/ProgressiveMigrations/__DB__/Lib</Path>
<pkgname>ProgressiveMigrations</pkgname>
</Node1>
<Node2>
<Path>......</Path>
<pkgname>....</pkgname>
</Node2>
.....
</PathElements>

Mi duda es la siguiente: una vez que encuentro el valor de pkgname que deseo obtener, ¿cómo hago para obtener el nombre del nodo superior (Node1, Node2, ....)?
¿Hay alguna manera simple de hacerlo?

Gracias por ...

Hola.

Resulta que quiero crear un módulo que debe de tener variables privadas, que sólo se puedan usar desde el módulo (por todas las funciones) pero que no se puedan modificar en los programas que usen este módulo.

package MyModulo;
use strict;

BEGIN {
my $algo = 1;
tie $algo, "MyModulo";
}

sub new { $algo++; }
sub del { $algo--; }
1;

Claro, el tie está mal hecho (le falta todo lo indicado en ...

Estimado Explorer :) ,

Necesito, cuando ingreso a un router/switch desde el script de telnet y ejecuto algún comando que es extenso, obtener la salida completa de dichos comandos.

Puntualmente necesito que cuando aparece el siguiente string: " ---- More ---- " poder enviarme un backspace al equipo para que continúe con la salida del comando.

¿Cómo puedo realizar eso desde un script en Perl? ...

Hola cuando intento instalar IO::SSL, cpan me dice que éste depende de SSLeay. Cuando intento instalar SSLeay, me da error:

Code: Seleccionar todo

(muchos errores y al final esto:)
make: *** [SSLeay.o] Error 1
  FLORA/Net-SSLeay-1.32.tar.gz
  /usr/bin/make -- NOT OK
Running make test
  Can't test without successful make
Running make install
  Make had returned bad status, install seems impossible
baby0:/home/jordi#

Gracias.

Hola necesitaría saber de qué forma puedo rellenar un select múltiple con CGI::Ajax al apretar un botón, lo que necesitaría es de qué forma puedo mostrarlo dinámicamente a medida que voy ingresando, me vayan apareciendo en el Select Multiple. Muchas gracias desde ya y felicitaciones para el mejor foro de Perl en español de Internet. Abrazos