Foro - Perl en Español

Hola, amigos. A ver si alguien me puede ayudar.

Estoy intentando segmentar una cadena en fragmentos más pequeños para imprimirlos en columna. Es decir, tengo:

$cadena="XXXXXAAAAABBBBBCCCCC"

y quiero poder imprimir:

XXXXX
AAAAA
BBBBB
CCCCC

Es decir, meter un salto de línea cada x caracteres (en este ejemplo, 5 caracteres).

Preparé este pequeño código que resuelve el problema:
while(length($cadena) > x){
$sec=substr($cadena,0,x);
print "$sec\n";
$cadena=substr($cadena,x);
}
print "$cadena\n";
donde "x" es la longitud deseada.

El ...

Hola.

Quería saber si hay algún módulo que permita cambiar una fecha y hora, con segundos escalares, por ejemplo: 2017 0419 0907 39.3 (aaaa mmdd hhmm seg) a formato UNIX. Encontré módulos para trabajar con fechas pero no puedo encontrar cómo trabajar con segundos en escalar. Disculpen mi ignorancia. Desde ya, agradezco su ayuda.

Saludos.

Madrid Perl Mongers

¡Por fin!

Después de muchos intentos, ya tenemos fecha para el primer Madrid Perl Workshop.

Será el 3 de junio. Entrada gratuita, pero ¡hay que apuntarse!

¿Quieres dar una charla? ¡Adelante!

http://madrid.pm.org/workshop/

Hola, buenas noches.

Necesito que me echéis una mano para solventar un problema que se me ha planteado al realizar un formulario, y que me lleva de cabeza.

Tengo una serie de checkbox (en concreto, 9) para poder elegir un turno u otro, pero los viernes los turnos se reducen a 6, por lo que necesito que al indicarme la fecha, reconozca que es viernes y los turnos que ya están reservados aparezcan como desactivados/ocupados, ...

Hola, normalmente creo carpetas en Perl con los permisos 0777, pero me dijeron que es peligroso usar esos permisos.

Solamente uso esa carpeta para registros de actividad, para que el usuario pueda crear y leer logs en esa carpeta y subcarpetas.

¿Qué permisos debería usar entonces para no poner en riesgo nada?

Hola, estoy planteándome un problema de difícil solución :( El tema que tengo es que envío un texto largo de varias líneas por IRC. Si envío mucho me echan por inundación, entonces necesito enviar cada cierto límite establecido en una variable, en este caso la variable $limit, que tendría un valor de "15". Entonces hago un split y separo todas las líneas "\n", para enviarlas cada 15 ...

Hola, este es el texto que estoy extrayendo:
:Doddy!~Doddy@blablabla PRIVMSG ClapTrap :texto enviado
Este es el código del cual necesito extraer el texto enviado que es el que está al final, al lado del último ":". Por alguna razón no puedo extraerlo porque me devuelve cadena vacía...
if ( $log =~/:(.*)!(.*) PRIVMSG (.*) :(.*)/ ) {
my $user = $1;
my $message = $4;
}
¿ Cuál es el problema ?

P.D.: Ahora, por ...

Hola, tengo este código simple para codificar con vigenere:

use Crypt::Vigenere;

my $encode = encrypt_vigenere("test","123");
#my $decode = decrypt_vigenere($encode,"123");

sub encrypt_vigenere {
$vigenere = Crypt::Vigenere->new($_);
return $vigenere->encodeMessage($_);
}

sub decrypt_vigenere {
$vigenere = Crypt::Vigenere->new($_);
return $vigenere->decodeMessage($_);
}
Devuelve:
Can't call method "encodeMessage" on an undefined value
Debería funcionar bien, ¿cómo arreglo este error?

Hola, estoy tratando de traducir este código PHP a Perl:
function javascript_encode($text)
{
$encoded = chunk_split(bin2hex($text), 2, '%');
return $encoded = '%' . substr($encoded, 0, strlen($encoded) - 1);
}
Una entrada a la función sería:
<script>alert('hola');</script>
Salida:
%3c%73%63%72%69%70%74%3e%61%6c%65%72%74%28%27%68%6f%6c%61%27%29%3b%3c%2f%73%63%72%69%70%74%3e
Lo uso en una aplicación en PHP para codificar código JavaScript, pero la verdad no sé bien el nombre de lo que estoy haciendo. Necesito que alguien me diga cómo se llama este método ...

Hola. Estoy haciendo un cliente de UDP. El problema es que no puedo verificar cuándo se conecta y cuándo no.

"or die" funciona bien cuando el host no está, pero cuando la IP está bien y el puerto mal, entonces ocurre un falso positivo y continúa tratando de mandar paquetes.

Otra cosa. "or die" no me viene bien tampoco porque uso una función aparte llamada "printer" que usa colores y no puedo terminar el script ...