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

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

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, ¿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: ...

Hola a todos.

Antes de nada, daros la enhorabuena, tanto al administrador como a la gente que publica, por el servicio que ofrecéis.

Mi duda es la siguiente: Estoy trabajando con una base de datos bastante grande (16 GB en cada archivo. En total, 460 TB), cuya estructura es:
desname=clusteringBin3940
similarity_method=FrankEtAlDotProduct
version=spectra-cluster-1.0.6-SNAPSHOT
threshold=0.7
fdr=0
description=clusteringBin3940

=Cluster=
SPEC PRD000681;PRIDE_Exp_Complete_Ac_22491.xml;spectrum=1074 true
SPEC PRD000681;PRIDE_Exp_Complete_Ac_22498.xml;spectrum=2950 true

=Cluster=
SPEC PRD000681;PRIDE_Exp_Complete_Ac_22498.xml;spectrum=1876 true
SPEC PRD000681;PRIDE_Exp_Complete_Ac_22498.xml;spectrum=3479 true
SPEC PRD000681;PRIDE_Exp_Complete_Ac_22498.xml;spectrum=3785 true
SPEC PRD000681;PRIDE_Exp_Complete_Ac_22498.xml;spectrum=3785 ...

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?

Saludos, comunidad.

Mi problema es el siguiente, y si alguien me puede ayudar le estaré eternamente agradecido.

Tengo un archivo que contiene secuencias de 40 nucleótidos (alrededor de 2000 secuencias) y lo que debo hacer es saber si estos fragmentos de secuencias se encuentran en 6 archivos del formato fastq que traen cerca de 90 millones de secuencias.

En primera instancia, el script solicita el archivo de entrada, el nombre de salida y la dirección ...