Foro - Perl en Español

Buenos días, no tengo mucha idea de programar en Perl, pero en el trabajo me han pedido que desde un Perl le pase unos parámetros a un servicio web y no tengo mucha idea.

En PowerShell sería así:
$input = @{
cabecera = @{
terminal = "TDQY"
};
datosEntrada = @{
NOMBRE_FICHERO = $FileName
MEDIO_E_S = "FTP"
ENTIDAD = $Cliente
APLICACION = $Aplicacion
DSN_FICHERO = $FileName."_".$fecha.$rand
}
}

$jsonInput = ConvertTo-Json $input

$output ...

Estaba programando, practicando los ciclos while cuando se me ocurrió emular lo que sería una shell. Una buena manera de hacer un ciclo while que haga que el prompt vaya saliendo siempre, pero llegamos a un problema, y es que se me ocurrió poner unos comandos por defecto, y al introducirlos funcionan, pero al salir otra vez el prompt y meter otro comando sale exactamente lo mismo que el primero pese a ser diferentes:
[syntax ...

Hola.

Estoy teniendo problemas con la salida de un comando al obtener sus datos. Estoy ejecutando la salida de un comando de una aplicativo que usamos para obtener las versiones de los agentes instalados.
@report = `$get_config -s \"$cliente\" -A -L | egrep "Version Name|Patch|Platform"`;
El problema me viene que, cuando algún cliente no está o hay un problema de comunicación con él, en vez de guardar los datos de salida en el array, ...

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.

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