Foro - Perl en Español

hola.adios

($palabra1, $palabra2) = $doc =~ m/\'(\w+)\.(\w+)\'/simo;

Con eso lo que haciamos era guardar en $palabra1-hola y en $palabra2-adios.

Si el texto que quiero guardar está entre comillas simples sería así???

' texto de prueba '

($palabra1, $palabra2) = $doc =~ m/\'\'(\w+)\'\'/simo;

?????

Saludos

Hola, escribo para pedir una guía en la documentación que debo buscar para aprender a hacer un programa que me reconozca una lista de palabras en un texto y que una vez reconocidas les introduzca la etiqueta en XML.

Así por ejemplo tengo un archivo de texto y tengo otro archivo lleno de etiquetas del tipo:

Code: Seleccionar todo

<N genero=masculino>caso</N>
<N genero=femenino>casa</N>

Lo que me gustaría es que cada vez que en el texto se encontrara la ...

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