Foro - Perl en Español

Hola, estoy tratando de codificar en Rot13 una variable string, pero no puedo porque solo me devuelve el número 1 como resultado de la función :evil:

Este es el código:
use Crypt::Rot13;

my $php_code = "echo 'hi world'; ?>";

print "Rot13 : ".encrypt_rot13($php_code)."\n\n";

sub encrypt_rot13 {
my $text = shift;
my $rot13 = new Crypt::Rot13;
$rot13->charge($text);
return $rot13->rot13();
}

¿ Cuál es el ...

Hola, soy nueva en la programación, quisiera saber cómo podría hacer un select dinámico con ayuda de AJAX, de modo modelo-vista-controlador.

Por fin Google tiene disponible un sistema que permite la ejecución de aplicaciones Perl en su nube de aplicaciones.

El ejemplo que han puesto está basado en Mojolicious.

Hola, soy nuevo programando en Perl y estoy tratando de hacer un ejercicio. Sin embargo, necesito una guía para realizarlo, ¿podrían asesorarme?

El programa a desarrollar tiene que leer un archivo .txt con información desordenada como la siguiente:
Nombre;Edad;Informacion1;Informacion2;Informacion3
Pedro;17;3.0;7;espanol
Juan;20;3.0;7;matematicas
Andrea;23;0;0;ciencias
;;
Mary;19;6;7.24;historia

La información se debe de almacenar en un array o hash, descartar los ';', espacios, etc... he logrado leer el fichero .txt y almacenar los datos en un arreglo:
@array = ...

Saludos, estimados.


Actualmente he desarrollado un script de automatización que se encarga de recibir un archivo de texto para lectura y luego debe conectarse a un equipo Fortinet por SSH, estando en mi servidor (redhat) sobre la ruta:
/usr/local/scripts/apply_healthy_internet.pl 2 URLFILTER2###inet_sano_parsed_20170309.txt
Ejecuto ese script y hace el trabajo sin inconvenientes, todo es una maravilla :) El problema se presenta cuando se ejecuta desde la página web ...

Ya ha salido la encuesta Perl 2017, por si queréis participar:

https://surveyplanet.com/58b6bc0017c38f3614eb5809

Hola. Soy nueva y tengo un problema, ojalá puedan ayudarme.

Tengo una tarea del lenguaje Perl y nunca lo he usado. Mi tarea se trata de realizar un código para calcular la media aritmética, la varianza, la desviación estándar y la moda.

Ese programa actualmente lo tengo en C, así que solo faltaría pasarlo a Perl, pero no sé cómo.

Gracias por su tiempo. :D

Hola. Estoy tratando de hacer lo mismo que hace la función gzdeflate en PHP pero en Perl. El problema es que no puedo hacerlo porque no encuentro documentación al respecto.

El código en PHP que hace lo que quiero:
$string = ' echo \'<p>Hello World</p>\'; ?> ';
$encoded = base64_encode(gzdeflate($string));
Conseguí cómo hacer lo opuesto:
use MIME::Base64;
use Compress::Zlib;

my ($i, $istatus) = inflateInit( -WindowBits => -MAX_WBITS);
my ($decoded, $ostatus) = $i->inflate(decode_base64($code)); ...

Hola a todos.

Tengo una función en JavaScript que actualiza unos datos de un formulario. Y me gustaría usar la misma función para eliminar otros datos de ese mismo formulario.

He intentado pasar la función de un lugar a otro, pero hay algo que me falla.

Esta es la función inicial:

function updateLinea( l )
{
var line = 'line'+l;
_sknfLinea = searchDiv( line );
hideDepart();
hideDatosMiembro();
if(_ns4){_sknfLinea.visibility="hidden"}
if(_ns6){_sknfLinea.display='none'}
if(_ie4){_sknfLinea.display='none'}
var line = ...

Hola, ¿qué tal? Me encuentro detenida por una consulta vía web que no muestra resultados. Sin embargo al ejecutar el SQL directamente en PostgreSQL sí obtengo resultados, es decir no me está reconociendo:
$sth_sistemas= $dbh->prepare($sql_sistemas) or die $DBI::errstr;
$sth_sistemas->execute(); ### AQUÍ SE DETIENE
my $registros = $sth_sistemas->rows;
Debe ser un simple error, pero no lo logro encontrar. ¿Me podrán decir, por favor, cómo detectar la falla? ¿Existe algún registro de postgreSQL?

La versiones son: ...