Foro - Perl en Español

Hola, tengo esta función:

my @array1 = ("test","test","test");
my @array2 = ("test","test","test");

my @array1_cleaned = repes(@array1);
my @array2_cleaned = repes(@array2);

for(@array1_cleaned) {
print $_."\n";
}
print "\n";
for(@array2_cleaned) {
print $_."\n";
}

sub repes {
my @array_to_clean = @_;
my @array_cleaned;
foreach $text ( @array_to_clean ) {
push @array_cleaned, $text if not $wtf{$text}++;
}
return @array_cleaned;
}

Sirve para borrar repetidos en dos arrays varias veces usando una función, el problema es que nunca ...

Hola a todos. Necesito ayuda con mi código. Intento hacer un código que me muestre la fecha al contar n cantidad de días, y el siguiente lo hace. Solo que lo que deseo saber es el último valor, no quiero que me muestre todos, solo el último.

$fechaInicio=strtotime("03-07-2017");
$canti=strtotime("+2days",$fechaInicio);

for($i=$fechaInicio; $i<=$canti; $i++){

$i = strtotime("+1 days", $i);

echo date("M d", $i) . "<br>";
//echo max($i);

}

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