Foro - Perl en Español

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

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

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. Estoy haciendo un análisis de los cifrados más conocidos en CPAN: http://search.cpan.org/search?m=all&q=crypt&s=61 El tema es que ya tengo rot13 y blowfish pero no sé cuáles son las otras conocidas. ¿Alguien conoce algunas más?

Hola a todos en el foro.

Estoy escribiendo un script y me asaltaron un par de dudas con algunas líneas que deseo se modifiquen si están dentro de un if(){...} (esa es mi duda principal) y respecto de cómo hacer un par de cosas.

Me explico. El esqueleto del script que poseo es el siguiente:
#!/usr/bin/perl
use v5.24;
use Getopt::Long qw(:config bundling_values require_order no_ignore_case);

### Variables
my $DPI = "150";
my $arara = 0; ...

Estimados:

Estoy ocupando el módulo Spreadsheet::WriteExcel para leer un archivo plano (más de 70 000 registros) y generar n hojas de calculo según su cantidad de registros (por ejemplo 65 000 líneas para la versión de Excel antigua).

Pero no he podido optimizar para seleccionar la hoja por nombre que esta tiene y no por el comando sheets(3) el cual selecciona la hoja 3 de izquierda a derecha en forma predeterminada y como la creación ...