Foro - Perl en Español

Buenas tardes, maestros de Perl, tengo una duda. ¿Cómo hago para limpiar una variable como esta?

while($x<100){
my @var1=push(@var1,$valor);
}

# aquí hago lo que tengo que hacer

# Y aquí necesito borrar la variable algo así como "" o bien volver a setearla con nada

my @var1="";


De antemano, muchas gracias.

Tengo un arreglo y quiero mostrar el valor máximo y mínimo.

«Yo me he encontrado múltiples veces con este problema, por ejemplo procesando ficheros de genomas de Uniprot, que pueden tener ~ 30GB en sus casos más extremos. En estos casos, al utilizar los módulos threads y threads::shared, normalmente lo que ocurre es que la memoria se va llenando mientras avanza el trabajo de las threads, y como resultado final el sistema operativo termina matando al proceso porque ocupa toda la RAM. He encontrado, mezclando código ...

Hola, qué tal a todos, quisiera saber si existe un script en Perl o me puedan ayudar a diseñar un script que me pueda describir en una secuencia de aminoácidos las características propias de cada aminoácidos, es decir, nosotros sabemos, básicamente, que los aminoácidos se agrupan de la siguiente forma:

Grupo Hidrofóbico = (H)
Polar = (P)
Carga+ = (+)
Carga- = (-)

Supongamos que tenemos un archivo fasta: input:AA_1.fasta

>AA_1
MTRDETHPFV

Y deseamos que ...

Estoy trabajando con CGI::Application y quisiera incorporar DBIx::Class utilizando el plugin CGI-Application-Plugin-DBIx-Class, pero estoy teniendo problemas para realizar una búsqueda simple.

Si utilizo el método find(), anda perfecto, devuelve la fila indicada:


my $data_usuarios = $self->schema->resultset('Usuario')->find(1);


Pero si quiero utilizar el 'search' devuelve todo vacío, no recupera lo que necesito: ¿Qué es lo que estoy haciendo mal, al utilizar el CGI-Application-Plugin-DBIx-Class?


my $data_usuarios = $self->schema->resultset('Usuario')->search(
{},
{
columns=>[qw/ usu_nombre usu_apellido ...

Buenos días.

Hola, antes que nada les mando un cordial saludo y agradecida porque hasta el momento el foro ha sido de mucha ayuda.
Sin embargo estoy tratando de hacer un script en Perl para ingresar a un servidor y una vez dentro de esa misma sesión "ssh" verificar las instancias que posee él mismo.

Para ingresar al servidor que posee clave, utilicé este script:

#!/usr/bin/perl

use Net::SSH::Perl;
use strict;
use warnings;
use Net::Ping;

my ...

¡Hola! ¡Se me ha presentado una duda!

Este es un programa ejemplo, me gustaría saber, si quiero enviar más de un parámetro para la consulta en SQL, ¿cómo lo envío :?: Y me gustaría saber si tiene un límite de parámetros por consulta :?:

$sql_update = qq { UPDATE database.table
SET column = 'UPDATE!'
WHERE id = ?
}; ...

¡Buenas!
Quisiera saber si hay alguna forma de introducir el símbolo matemático que representa el infinito, en Perl.
Gracias

No conozco mucho sobre este módulo para extraer sus datos y verlos el código que tengo es así :

#!usr/bin/perl
#ppm install http://www.bribes.org/perl/ppm/JSON.ppd
#ppm install http://trouchelle.com/ppm/Digest-MD5-File.ppd
#ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd

use JSON;
use Digest::MD5::File qw(file_md5_hex);

use LWP::UserAgent;

my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);

my $api_key = "mikey"; #Your API ...

Querría saber el código óptimo para realizar una encuesta en Perl. La tenemos realizada, pero nos parecen demasiadas líneas y queríamos ver la manera más óptima. La encuesta consiste en una batería de preguntas a las que se responderá sí y no mediante y , y dependiendo de si la respuesta sea positiva o negativa se pasará a una siguiente pregunta que dependerá de la primera. Así, si a una pregunta que se interesa ...