Foro - Perl en Español

Buenas tardes.

Me gustaría que me ayudaras con un tema de SOAP con Perl.

Fíjate que tengo que enviar un xml hacia un servidor web usando SOAP. Este script, al enviar la información debe de abrir un reporte de falla en el servidor.

Ya tengo todo, y al ejecutarlo me aparece un error.

Este es mi script.
###################################### SCRIPT
#!/usr/bin/perl -w

use SOAP::Lite +trace=> 'debug';

my $message="<soapenv:Envelope xmlns:soapenv=\"http://schemas.xmlsoap.org/soap/envelope/\" xmlns:sch=\"http://www.tibco.com/schemas/Inventory_root/SharedResources/Schema.xsd2\" xmlns:amd=\"amdXml\"><soapenv:Header/><soapenv:Body><sch:IncidentInput><sch:serviceClasification/><sch:Impact>2000</sch:Impact><sch:urgency>1000</sch:urgency><sch:eventType>1</sch:eventType><sch:Status>1</sch:Status><sch:sourceReported>17000</sch:sourceReported><sch:useServiceType>true</sch:useServiceType><sch:user>GIATUSER</sch:user><sch:password>GIATUSER</sch:password><sch:hasChilds>true</sch:hasChilds><sch:CI><sch:CILevel1>Requerimiento</sch:CILevel1><sch:CILevel2>Requerimiento</sch:CILevel2><sch:CILevel3>Validar Red y Enlaces.</sch:CILevel3></sch:CI><sch:CP><sch:CPLevel1>Servicios</sch:CPLevel1><sch:CPLevel2>Servicios de ...

Hola a todos, estoy teniendo un problema con un script para tratar de obtener los promotores de Arabidopsis en formato gff3.

En principio los obtuve simplemente contando -500 nt río arriba del inicio de los genes, pero luego me di cuenta que muchos de ellos se solapan con genes contiguos.

De manera que solo me quiero quedar con los que no solapen con genes.

Para eso escribí un script para que me encuentre coordenadas y ...

Saludos, Perl en español. Por adelantado agradezco su ayuda.

Cuento con una base de datos de Microsoft SQL Server 2005 y necesito crear una query de la siguiente manera:

Cuento con dos tablas:

• poe
• ldm

La tabla poe cuenta con los siguientes campos: idgen, fecha, hora, poe y valoracion.
Por cada fecha, el idgen con una hora, un poe y una valorización pueden aparecer desde 0 hasta 24 veces, o sea 24 ...

Estimados,

Estuve mirando el tutorial de upload de archivos y quería consultarles si tienen el mismo tutorial pero para subir varios archivos.

Saludos.

«En el lenguaje de programación Perl, podríamos escribir los números del 1 al 15, usando la forma básica con un arreglo, o bien, podríamos hacer uso de la forma más económica siguiente, usando el operador rango»

Artículo

Hola a todos, soy bastante nuevo en programación en Perl y quiero hacer un script que me haga lo siguiente:

Tengo una lista de genes con números:

AT1G01073 18,5
AT1G02470 20
AT1G02590 5
AT1G02590 6,5
AT1G02740 5,5
AT1G03600 5,5
AT1G03600 9
AT1G03600 4,5
AT1G03600 8
AT1G03600 6
AT1G03600 11,5
AT1G03600 4
AT1G04410 4,5

Lo que quiero hacer es sumar los números correspondientes a cada gen, pero como verán, algunas son únicas, y otros tienen más ...

Buen día... Este es mi primer interrogante y es acerca de un intérprete de Perl para Windows 2000. Específicamente en un servidor. El asunto es que quiero extraer los event logs que presentan los servidores y lo intento hacer a través de Perl, pero he intentado instalar Active Perl (las versiones actuales) y Strawberry 5.16 y no logran instalarse...

Espero puedan recomendarme un intérprete de Perl y el lugar en Internet en donde lo pueda ...

«Bien,le hice otra pequeña actualización al programa de una vez,ya que voy ha estar ocupado los próximos días, no es una versión completa, ya que puede que haga 4.5.1,4.5.2, etc. para corregir errores de ésta, así que lo que le he añadido es lo siguiente: 1. Cambié algunas cosas de la interfaz para que se vea mejor: 4.5: 4. antes 2. También añadí los conocidos accel. Que...»

Artículo

Hola, estoy teniendo problemas con un script que es una especie de dæmon, en el cual se crean varios procesos que hacen diferentes acciones en una BD MySQL. El tema es que los resultado resultan ilógicos, o "explota".

Resumiendo, el programa sería básicamente esto:

...;

while (1) {

my $child_id = fork();
if ($child_id) {
...
}
else {
# Se ejecutan varios módulos según parámetros en paralelo que acceden a la BD
# (consultas, ...

Saludos, comunidad de perlenespañol. En esta oportunidad les escribo porque estoy intentando realizar una función para agregar emoticones a las cadenas antes de guardarla en la base de datos y surge un problema con mi función que no logro solucionar. Espero puedan ayudarme.


sub agregar_emoticones{
my $cadena = shift;

$cadena =~ s/:\)/<img src=\"image/emoticones/sonrisa1.png\">/g;

return $cadena;
}