Foro - Perl en Español

Contempla hasta PDL v2.4.10.

Tabla de contenidos.

Descarga (7,8Mb, PDF, inglés)

Estimados,

Estoy presentando el siguiente caso: tengo una Base de Datos MySQL (reportes) la cual contiene una tabla (eventos) de un tamaño de 18 Gb.

Esta tabla contiene los eventos de hace más de 2 años (2010-2012).

Necesito ejecutar un comando en el cual borre lo que esté de tres meses hacia atrás. Ejemplo: que en la tabla solo me quede con la información de diciembre 2011, enero 2012 y febrero 2012, y todos los ...

Hola. Tengo el siguiente código:

my $ve = MainWindow->new();
$ve->geometry("800x600+20+20");
$ve->resizable(0,0);
$ve->title("Test");
$ve->Scrolled("Text",-scrollbars=>"e")->pack();

MainLoop;

Mi pregunta es cómo hacer que la barra scrolled no permita borrar ninguna palabra en ella, pero que sí deje usar insert para poner texto. Me refiero a que permita poner texto pero que el texto no se pueda modificar como lo hace ROText.

¿ Alguien me podría ayudar ?

Estimados,

Estoy analizando alrededor de 3500 proteínas y me doy con la sorpresa de que algunas proteínas empiezan con otro AMINOÁCIDO (verde) que no es METIONINA (rojo), por ejemplo:

>gen_1
MEDGFGGLDLGK0VERVVERVMVEVVMFIG......

>gen_2
GVBFPDBFBDFBMFDOBDFBBDFBFB......

Entonces, para analizar las que no comienzan con M, traté de modificar algunos scripts en Perl, que se encargan de extraer secuencias, pero sin éxito. Os agradecería que me des una mano en este problema, como verás no tengo 10 secuencias sino ...

Saludos. Soy nuevo en esto de programar en Perl y me acabo de unir al foro.

Escribo porque tengo duda con un script que estoy haciendo... El asunto es el siguiente: tengo un arreglo (@elementos) en el que cada elemento luce como sigue:

$elemento = HPY2525: 2695|AAD08039.1 9424|ADU82245.1 F32|BAJ58597.1 hB8|CBI66079.1 Ind7|ADU79976.1 Li75|ADU83917.1 P12|ACJ08500.1 S464|ADO06203.1

$elemento = HPY2525: 9424|ADU82245.1 F32|BAJ58597.1 hB8|CBI66079.1 Li75|ADU83917.1 P12|ACJ08500.1 S464|ADO06203.1

$elemento = HPY2841: 9424|ADU81058.1 C20|ADO03382.1 Ind7|ADU80418.1

Quiero meter en otro arreglo ...

Gracias a una aplicación que realicé en mi práctica profesional en la cual recibí mucha ayuda del foro:

• Optimizar búsqueda de datos repetidos
• Optimizar transformación de xls a .txt
• Spreadsheet problemas con las fechas

Ahora comenzaré a trabajar en la institución. Quisiera preguntarles qué me aconsejan tomar en cuenta para Perl si voy a trabajar con MySQL Server 2009.

Pregunto esto porque la vez anterior empecé a trabajar con un módulo ...

Hola, tengo el siguiente texto

<control>pongo uno
uno
<control> pongo dos
dos
<control> pongo tres
tres


Mi duda es cómo usar una expresión regular para capturar el último comando que es "pongo tres" sin saber cuál es, me refiero a una expresión regular que siempre capture el comando del último <control>

¿ Alguien me puede ayudar ?

Hola. Tengo el siguiente código:

#!usr/bin/perl

use Tk;

my $ve = MainWindow->new();
$ve->geometry("300x600+20+20");
$ve->resizable(0,0);
$ve->title("Test");

my $body = $ve->Text()->place(-x=>50,-y=>50);
$body->insert("end",">");

$ve->bind($body,"<Enter>"=> sub {
print "yeah\n";
});

MainLoop;

El problema es que me aparece yeah a cada momento, y solo me tendría que aparecer cuando le dé el enter.

¿ Alguien me puede ayudar a corregir el código ?

El próximo 10 de marzo, el grupo de los Perl Mongers de Barcelona (Barcelona.pm) organizará un curso avanzado de Perl que durará todo el día y combinará teoría y práctica.

Enlace

¡Saludos!

Tengo un pequeño código, en el cual hago una consulta a una web, y quiero obtener los ID que identifican cada uno de los artículos de dicha web.

El formato de ID para cada articulo es el siguiente:
<li class="view-item" id="ITEM22483">
Todos los IDs tienen el mismo formato y solo hay un por articulo, solo cambia el "ITEM22483".

Tengo la siguiente parte del código:

my $mech = WWW::Mechanize->new();
$mech->get($url);
my $output_page ...