Foro - Perl en Español

Hola:

Estoy tratando de analizar dos strings obtenidos mediante unos objetos GtkEntry. Puedo mostrar los valores mediante print() y salen perfectos. Sin embargo, trato de analizar su contenido y no hace nada. Mi intención es comprobar si tiene el formato 00:00:00.

Mi idea de código es:

if ($entrada !~ /::/) {
print "No me gusta\n";
}

¿Qué estoy haciendo mal?

Muchas gracias por vuestra ayuda.

Falkom

Hola,

Esto es una duda muy básica y seguramente será algo sutil que se me ha pasado leyendo los manuales.
¿Qué diferencia hay entre my ($var) = 0; y my $var = 0?

Un abrazo y muchas gracias.

Falkom

Buenas tardes compañeros,

tengo una pequeña cuestión con la que no he podido localizar respuesta alguna.
Necesito poder leer una frase que se ha introducido en un cuestionario html, desglosar esa frase en cada una de las palabras que la forman, y luego asignarles una variable a cada una de dichas palabras.



#!/usr/bin/perl
use CGI;

my $q=new CGI;
my $consulta;

print $q->header("text/html");
print $q->start_html(-title=>"Tu pregunta");
print"\n";

$consulta =$q->param('consulta');

# aquí desglosaría la pregunta ...

Hola compañeros, estoy teniendo una duda a la hora de usar LWP. Actualmente tengo un script que necesita consultar datos de una página web, y parsear esa respuesta en XML. Generalmente la respuesta es grande, más o menos unas 2000 líneas.

El servidor al cual le hago las peticiones usa Transfer-Encoding: chunked, y muchas veces el content del request, viene con caracteres extraños colocados "al azar" como una string "\r\n1ff8\r\n" o "\r\n994\r\n". Creo yo que ...

Hola a todos:

Estoy desarrollando una serie de scripts para administrar sistemas y me he encontrado con un curioso error.
Obviamente, hasta que coja la debida soltura, empleo:

use stricts;
use warnings;

pero tengo una duda muy tonta. Suelo declarar las variables con my() siempre que quiero usarlo en el ámbito de la función; sin embargo, algunas las quiero globales y tal como he visto en algún manual, sin poner my(), debería ser global. Mi ...

Hola,

Tengo un archivo de alineamiento en formato SAM que tiene un encabezado y una sucesión de líneas con varios campos, os muestro un trozo:

@HD VN:1.0 GO:none SO:coordinate
@SQ SN:APB LN:360
@RG ID:I245 SM:Sample_Mult_1
@PG ID:AA PN:DataAnalyzer VN:2.6
@CO Sequencing System.
APB 0 APB 42 255 41H23M1P6M1P4M1P5M1P6M1P6M1P12M1P5M1P2M1P15M1P2M1P59M1P23M1P2M1P2M1P2M1P7 * 0 0 AGCTTAGCTTGGAAAGCCTCACCTCTTACTTTTCCATTGAGTCATCTACCAAAGGA * MD:Z:319 NM:i:0
HEWCEEE01A0C7I 0 APOBex26_M13 42 255 41H23M1P6M1P4M1P5M1P6M1P6M1P12M1P5M1P2M1P15M1P2M1P59M1P23M1P2M1P2M1P2M1P7M1P * 0 0 AGCTTAGCTTGGAAAGCCTCACCTCTTACTTTTCCATTGAGTCATCTACCAAAGGAGATGTCAAGGGTTCGGTTC * MD:Z:319 NM:i:0
HEWCEEE01A2AQM 0 APOBex26_M13 42 255 41H23M1P6M1P4M1P5M1P6M1P6M1P12M1P5M1P2M1P15M1P ...

Hola,
quisiera hacer un script en Perl que me permitiera descargar los genes de Neandertal y Homo Sapiens de Gene Onthology con sus coordenadas en un documento en el escritorio.

Hola.

Necesito tener 2 máquinas completamente sincronizadas en cuando a módulos de Perl se refiere. Ambas deben de poder ejecutar los mismos scripts, pero como los scripts los he estado creando en una e instalando módulos a medida que los necesitaba, la segunda máquina se ha quedado desincronizada.

¿Hay alguna manera de sincronizarlos?

¿Basta con hacer un rsync de los folder de @INC?

Muchas gracias.

Hola, amigos.

Tal vez sea muy fácil, pero la verdad, no sé cómo hacerlo y les agradecería una ayuda con lo siguiente:

Tengo un archivo de texto con la siguiente información (y pueden ser más polinomios); como la imagen a la cual se refiere ese mapa la he reducido a un 50% de su tamaño original.

<area shape="poly" alt="" coords="215,27,216,66,229,71,222,83,228,146,232,152,239,138,252,139,261,127,275,128,281,124,287,128,288,134,303,144,325,143,330,142,336,151,335,160,337,162,340,165,340,172,346,176,354,177,358,176,365,188,360,224,362,228,364,229,382,224,383,218,391,218,395,215,396,187,394,168,387,153,385,137,380,121,377,112,354,102,353,95,362,85,361,73,355,68,346,68,326,53,302,69,288,69,270,59,253,53,250,37,237,33,230,31,224,28,219,27,214,28" href="munic1.html" title="" />
<area shape="poly" alt="" coords="232,153,243,143,260,140,261,131,269,129,278,132,282,128,284,130,284,136,299,146,324,148,329,147,332,152,333,166,336,165,337,176,346,181,356,180,361,189,357,221,355,225,336,215,325,213,317,207,303,207,293,212,286,213,264,198,262,199,259,211,258,213,243,214,233,206,225,206,225,197,228,191,225,178,226,170,233,163,234,157" href="munic2.html" title="" />
<area shape="poly" alt="" ...

¡Buenas tardes a todos!

Estoy comenzando con Perl y con CGI. Tengo un programa en Perl cuya salida en HTML no me imprime en caracteres utf8. Os dejo el código HTML y el código CGI.

Primero el html (prueba.html):
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">

<html>
<head>
<title>Prueba de CGI</title>
</head>
<body>
<p>Pregunta lo que quieras saber</p>
<form method="POST" action="http://localhost/cgi-bin/prueba.cgi">
<p><input type="text" name="consulta" size=36><input type="submit" value="Enviar"></p>

</form>
</body>
</html>


Ahora el programa CGI (prueba.cgi) ...