Foro - Perl en Español

¡Hola a todo el mundo! Acabo de registrarme en este foro (no sabía de la existencia de foros de Perl en español :D )

Bueno, al lío. Tengo que hacer un programa en Perl que cree usuarios en Samba, y gestione sus permisos. En definitiva, que gestione los parámetros básicos del fichero de configuración de Samba (smb.conf). He estado buscando en el siguiente código (y en ...

Hola gente. Estoy buscando una forma más rápida de instalar módulos ya sea en Windows o en Linux.

Tengo estos comandos:

#ppm install http://www.bribes.org/perl/ppm/Net-Whois-Raw.ppd : Demora 1 min en Windows

#cpan install Net-Whois-Raw : Demora 40 min. tanto en Linux como en Windows

El segundo comando fue insoportable pero como uso Seven 64 bits no puedo usar los ppd porque solo son compatibles con 32 bits. Entonces, ¿hay una ...

Hola a todos.

Antes de nada, daros las gracias por el magnífico trabajo que estáis haciendo. Cuando aprenda bien Perl me gustaría también ayudar por aquí... Mientras tanto, aquí dejo mi duda.

Resulta que estoy con búsqueda exhaustiva en Perl... y tengo este código realizado por el profesor:

sub variaciones {
# Parámetros
my($inicio, $fin, $longitud) = @_;

# Variables locales
my @resultado = ();
my @semilla = ();
my $fin_generacion = 0; # ...

Libro: Metagenomics, de Ken Youens-Clark y Bonnie Hurwitz.

Proyecto

PDF

Unix, Bash, Perl 6 y secuencias genéticas.

Estimados:

Necesito eliminar hojas creadas dentro de un libro las cuales se encuentren vacías.

Actualmente las creo de la siguiente forma:

my $worksheet = $workbook->add_worksheet('Morosidades');

Pero si al final del proceso queda vacía solo con los títulos necesito eliminarla.

Soy muy nuevo en Perl y no lo manejo mucho.

Saludos.

Hola, estoy realizando el siguiente script:

#Enumeración de motivos



sub motifs {
my $t =$_;
my $k = $_;
my @s =@{$_};#Lista pasada por referencia
my @secuencias = @{$_};

my @motifs=();
for (my $i=0; $i< scalar @s; $i++) {
my $indice =$s;
my $secuencia =$secuencias;
my $k_mero = substr ($secuencia,$indice,$k);

push @motifs,$k_mero;
}
return @motifs;
}




sub profile{
my ($t,$k,@motifs) =@_;
my %tabla =();
my @bases = ("A","C","G","T");
foreach my $base (@bases){
my @lista_ceros ...

Hola, tengo el siguiente script para leer la información entre dos lineas desde un TXT pero, ¿cómo puedo hacer para ir leyendo cada línea que me entrega el script? Ya que me entrega la totalidad de las líneas, pero necesito recorrerlas...

Archivo TXT:
INICIO
hola
como
estas
tanto
tiempo
FINAL
cuando
te
volveré
a ver
nuevamente
#!perl -w
use strict;
use autodie;

open my $in,'<',"File1.txt";

while(<$in>){
print $out $_ if /^INICIO/ .. /^FINAL/;
} ...

Hola, estoy intentando registrarme vía POST.

Lo que realicé fue lo siguiente: tengo una cuenta en la página xxxx.com, user: pepito, pass: 123.

Realicé el registro vía web y capturé el tráfico utilizando un proxy y esta es la petición:

POST /appejemplo/cpuMovil/Login HTTP/1.1
Authorization: Basic Dk2NzNkZmIwN2U1MWEwZGZmYTc0NWE5MTAzOGU1NDgw
Content-Length: 33
Content-Type: application/x-www-form-urlencoded
Host: webservice.ejemplo.com.bo
Connection: Keep-Alive
User-Agent: Apache-HttpClient/UNAVAILABLE (java 1.4)

Username=pepito&Password=123
Por seguridad los datos están cambiados. Este es mi código:
#!/usr/bin/perl



use strict;
use warnings; ...

Buenas a todos.

Tengo una duda y es que me ha comentado mi profesor que en la subrutina del aminoacido_minoritario() él cree que puede conllevar a una confusión que para calcularlo usa el valor de num_max_apariciones que obtengo en la subrutina anterior, y me ha dicho que lo modifique para que en el caso de que aparezca más de un aminoácido mayoritario imprima por pantalla el primero y el último y no lo entiendo muy ...

Hola a todos. Actualicé mi servidor de LRH a CentOS 7, y ahora tengo problemas en la instalación de los módulos de Perl requeridos por la aplicación que ya se ejecutaba. ¿Alguien me puede apoyar al respecto? Gracias.