Foro - Perl en Español

Hola,

Estoy intentando crear un script que modifique ciertas características de un texto escrito en XML. El texto 'input' sería algo así:
<etiqueta1>
<etiqueta2>text texto texto. PS6000</etiqueta2>
</etiqueta1>

El texto contenido en <etiqueta2> siempre termina con un código del tipo "PS + cuatro dígitos" (por ejemplo, PS6000).

Lo que necesito es un script que convierta el texto 'input' en el siguiente texto 'output':
<etiqueta1 n="PS6000">
<etiqueta2>text texto texto. PS6000</etiqueta2>
</etiqueta1>
Es decir, un ...

Muy buenas.

He empezado con Perl hace relativamente poco, y estoy tratando de hacer el primer script de algo que sea útil y que no sea solo un ejemplo chorra.

Lo que intento conseguir con esto, es que este programa ejecute él solo varios BLAST a partir de un archivo de secuencias en FASTA, compruebe que resultados son comunes entre varias secuencias y te digas cuáles son, número de acceso, descripción y con qué longitud ...

Necesito substituir todas las apariciones de texto entre <b> y </b> de un html por su correspondiente hipervínculo.

Por ejemplo,<b>pepito<b><b>fulanito</b>por<b><a href="http://www.pepito.com">pepito</a><b><b><a href="http://www.fulanito.com">fulanito</a></b>y quería saber si se puede hacer con un solo s//g.

Tampoco tengo claro si le pongo que coja lo que hay entre <b> y </b> que no me vaya a coger el primer <b> con el último </b>.

¿Alguna idea de cómo hacerlo?

¡Gracias!

Hola, chicos, a ver si me pueden dar una mano...

Estoy queriendo decodificar unos correos que me descargo, puesto que éstos vienen con codificación Quoted Printable (del Content-Transfer-encoding) para luego procesar los datos que vienen en este correo para varias cosas. Lo que lo encuentro raro es que a la hora de hacer una prueba sencilla como la siguiente:


#!/usr/bin/perl -w
use MIME::QuotedPrint;

$string = 'electr=C3=B3nico';
$string_decoded = decode_qp($string);
print "$string\n";
...

Hola, quería preguntar si alguien conocía algún módulo o forma de cambiar la IP por otra cualquiera. Solo busco que se cambie por otra aleatoria.

¿ Alguien sabe cómo hacerlo en Perl ?

P.d.: encontré esto en bash:
ipconfig/release

netsh interface ip set address name="Internet" source=static 1.1.0.0 255.255.255.0 192.168.1.1 1

netsh interface ip set address name="Internet" source=dhcp
netsh interface ip set dns "Internet" static none

Hola.

Estoy tratando de poner un anuncio en la "Bolsa de trabajo" pero no consigo que se publique. Parece que no pasa del moderador :( .

Por favor, ¿alguien me puede indicar las reglas para poner un anuncio ahí?

He mirado las reglas generales del foro pero tampoco especifican mucho.

Nuestra oferta es muy sencilla, es para que un programador de Perl nos realice trabajos esporádicos. No ...

Hola, ¿qué tal?

Estoy realizando algunas consultas SQL con un script hecho en Perl. Verán: obtengo unos registros los cuales requiero insertar en una tabla en Firebird, solo que al ejecutar el Procedure para el INSERT me marca este error:

conversion error from string "20140220161918" at copyEtiq.pl

por lo que llegué a la conclusión de que este formato no es legible para Firebird, es decir no puede insertar las fechas de esta manera.

¿De que ...

Soy nuevo en este asunto de las expresiones regulares, y no sé cómo hacer esto.

Tengo códigos de este tipo:

ppa009832m.g
ppa000331m.g
ppa026666m.g
ppa004700m.g
ppa011429m.g
ppa003984m.g
ppa010914m.g
ppa026327m.g

y quiero extraer solo lo que está antes de 'm.g'. Ejemplo: ppa009832

¿Cómo se puede hacer?

Saludos

Hola. Tengo dos fechas:

$date1 = ParseDate($fs);

####-->La variable $date1 siempre debe tener un valor porque fuerzo su captura, como ejemplo la variable date1 tendrá el valor de 2014/02/19 11:11:00

$date2 = ParseDate($fe);

####-->La variable $date2 le asigno el valor '0000/00/00 00:00:00' porque la variable $fe no ha sido capturada y es necesario calcular la diferencia entre $date2 y $date1. Por favor, ¿me podéis orientar si esta operación es correcta: ParseDate(0000/00/00 00:00:00),

para que en ...

Saludos a la comunidad.

Mi consulta: no sé si se habrá respondido en otro lugar, pero busqué y no encontré algo claro. El tema es bien simple:

¿Cómo descodifico un script previamente aplicada la codificación Acme::Pony?

Gracias a todos.