Foro - Perl en Español

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, buenas tardes.

Mi duda trata sobre el algoritmo Needleman Wunsch que usa la programación dinámica. Tengo un código pero al probar un ejemplo no obtengo el resultado correcto.

Me dan este ejemplo:
secuencia_1
TTTTTTTT
secuencia_2
ATTTTTTTTA
La salida del alineamiento debería ser:
-TTTTTTTT-
ATTTTTTTTA
puntuación 6.0

La primera parte del código es la de inicialización

match = 1
mismatch = -1
gap = -2
longitud_1 = len(sec1) + 1
longitud_2 = ...

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, buenas tardes, me encuentro migrando mi aplicación que se encontraba en LRHE a CentOS 7, he tenido varios detalles, pero el servicio web y postgresql estaban funcionando bien, sin embargo en estos momentos al acceder a datos almacenados en la base de datos desde el usuario de postgresql me muestra el siguiente error:

psql: could not connect to server: No such file or directory
Is the server running locally and accepting
connections on Unix ...

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.

Hola, estoy queriendo practicar subversion para sigo sin entender cómo hacerlo. Con github lo tengo claro: solo necesito los comandos git y creo los repositorios de forma manual, pero ¿en subversion cómo practico? leí varios manuales pero es pura teoría.

Muy buenas.

Me están pidiendo que dada una fecha sea capaz de dar la fecha del día siguiente usando una subrutina del tipo acción. Yo he hecho una usando referencias que es capaz de hacerla pero no sé si es la forma correcta.

Otro problema que tengo es que, en los meses, si intento poner valores numéricos me da problema el último día del año: si pongo 31-12-4 me da 1-13-4.

Muchas gracias y perdón ...