Foro - Perl en Español

Estoy haciendo un script Perl que crea una base de datos y usa los datos que recupera de un texto.
Tengo problemas cuando creo las tablas con Perl: El programa crea la tabla pero no crea ninguna de sus columnas.

De ante mano, GRACIAS :D

#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use CGI;
use CGI::Carp qw( fatalsToBrowser );

my $host = "localhost";
my $database ...

Buenos días:

Tengo un HASH con esta estructura:
my %EW =
(
'a' =>
{
'b'=> {},
'c' => {},
'd' => {},
'e' => {},
'f' =>
{
'g' => {},
'h' => {},
'i' => {}
},
'j' => {}
}
);

Quiero pasar cada llave a otro hash, poniendo cada llave asociada a la ruta que lleva hasta ella:
a = a
b = a/b
...
g = a/f/g

Puedo hacerlo ...

Buenas tardes a todos.

Trataré de ser breve.

Llevo unas semanas aprendiendo Perl (programación en realidad desde cero, ya que nunca había tocado nada y vengo de un campo bastante diferente).

Ha surgido esa necesidad en mi empresa y me lo han ofrecido. El problema es que mi jefe está asumiendo cosas que no sé y me está costando seguir un poco el ritmo de las explicaciones, y antes de adquirir malos hábitos o empezar ...

Hola.

Estoy haciendo un pequeño programa y no sé por qué cuando solicito un dato por consola me indica que no puede acceder al archivo que le indico, copiando y pegando la ruta en la consola. En cambio, cuando le indico la ruta absoluta del archivo como se muestra en el primer bloque de código, funciona.

Cabecera:
require 'C:\Users\Paco\Desktop\Recursos\perl\libreria.pm';
Funciona la llamada:
print "\nIndica la ruta a testar:";
$ruta=<STDIN>;
testFile('C:\Users\Paco\Desktop\Recursos\perl\prueba.log');
No funciona la ...

Utilizando el protocolo SOAP, aquí tenéis un cliente, en Perl, para realizar consultas bibliográficas de literatura biomédica:

Perl client example - SOAP web service

You can download our Perl client here: SOAP Perl client. Please, read the contained readme.txt for more information.

Content:

• client.pl (Basic example which prints first all available search fields and gives an easy example for searching our citation database.)
• readme.txt (Contains installation/configuration information.)

Estimados, necesito de su ayuda... leyendo acerca de cómo descargar adjuntos desde un buzón en Gmail he logrado construir el siguiente script el cual me descarga el archivo Excel en este caso, pero el Excel llega solo con el nombre del archivo escrito en su primera celda. La información real no viene... desde ya muchas gracias por su ayuda...

El script es el siguiente:
#!/usr/bin/perl

use Net::IMAP::Client;
use Email::MIME::Attachment::Stripper;
use Data::Dumper;

$HOST = "imap.gmail.com"; ...

Hola. Estoy tratando de extraer datos que están en dos tablas que pertenecen a una página html que tengo guardada en local o sea en mi computadora y pasarlos a XML pero no logro avanzar.

Soy nuevo en Perl y no me empato con la solución. Si pudieran ayudarme se los agradecería. La cuestión es tomar los valores de cada Variable(Promedio,Mínimo,Máximo) y ponerlos en un xml, o sea, algo así:
<Data Variable="Temperatura del aire" ...

Hola a todos.

Tengo el siguiente código que lee un rango de celdas fijo de un archivo Excel con datos del índice de radiación ultravioleta (UV). Tiene escrito las palabras: Bajo, Moderado, Alto, Muy Alto y Extremo.

El asunto es que no logro que imprima una celda en particular y le asocie un color y un rango de números. Por ejemplo: si la celda que está en la columna 3 y fila 25 tiene escrito ...

Hola. El script de abajo es el alineamiento global para dos secuencias. Ahora lo que tengo que realizar es el alineamiento con restricciones.

Por ejemplo, quiero alinear la A de la primera secuencia (posición 0) con la G de la segunda secuencia (posición 1), es decir, si tengo como restricción (0,1) quiere decir que la posición 0 de la secuencia 1 tiene que alinear con la posición 1 de la secuencia 2, independientemente de si ...

Hola, tengo un problema a ver si me lo solucionáis:

my $blast1 = "tblastn -query Cas1Xan.fasta -db $genome -evalue 1e-5 -outfmt 6 -out cas1.out";
system($blast1);
print "--> Results for cas1:\n";
my $file1 = "cas1.out";
if ($file1 eq ""){
"No results found\n";}
else {
open my $info1, $file1 or die "Could not open $file1";
print "Gstart\tGend\tE-value\tChain\n";
while(my $line = <$info1>){
chomp $line;
my @col = split("\t", $line);
print "$col\t$col\t$col\n";
}

El caso es que ...