Foro - Perl en Español

Hola a todos:

Estoy intentando adecuar un programa que he comprado, y tengo que pasar algunas variables a un iframe. El iframe se crea mediante JavaScript, al hacer clic sobre un icono:

document.getElementById('xxx').innerHTML='<iframe src="phpscript.php" scrolling="no" frameborder="0" style="margin:0px;padding:0px;width:400px;height:260px;border-width:0px;overflow:hidden"></iframe>';

Mi pregunta es: ¿puedo utilizar el URL del src como medio para enviar variables? ¿Y los podría recuperar dentro del iframe mediante $_GET? Si no se puede hacer así, ¿se os ocurre alguna otra forma?

Gracias de ...

Quería consultaros si con Perl puede realizar un cliente de x formularios para entornos móviles con Android... la idea sería realizar un acceso por medio de SOAP a unos sistemas propietarios…

Estuve viendo un hilo pero no encuentro el módulo Android que usan para el “hola mundo”. ¿Alguno sabe algo más sobre poder desarrollar Perl sobre Android?

Hola amigos, parece una cosa muy sencilla, pero he estado buscando en Google durante mucho rato y sigo sin resolverlo.

Quiero usar una expresión regular pero pasándole variables, ej:
my $prueba1 = "Hola";
my $prueba2 = "Adios";
my $texto = "Hola, Hola, Hola";
$texto =~ s/$prueba1/$prueba2/g;
print $texto;

Y la salida debería ser: "Adios, Adios, Adios". Pero no sale nada.

Esta claro que no está interpretando las variables, o las está interpretando como texto ...

Hola buenas noches, soy nuevo en el foro y este es el primer hilo que coloco. Cabe resaltar de antemano que estuve verificando otros hilos a ver si conseguía solución a mi inconveniente y desafortunadamente no fue así.

Bueno, mi inconveniente radica en que tengo unas tablas de una herramienta ya existentes y en ellas necesito hacer unas consultas para generar unos reportes; estoy haciendo un pequeño desarrollo con el módulo DBI para conectar y ...

¡ Hola de nuevo !

Tenía una pregunta para vosotros. El caso es quiero hacer un open() para leer (parsear) un archivo externo que tengo en una URL (http://www.mysite.com/file.txt), tal y como lo haríamos en local, tipo:

open FILE, file.txt

¿Hay alguna forma de hacer esto en Perl sin usar pm externos? Es para un check de Nagios y tiene que ser un script muy portátil sin tener que ...

Hola tengo un archivo con el siguiente estilo de filas por columnas:
2L bound_moiety=MED(+) intron 4336355 4336361 3.8 + . ID=intron_FBgn0020762:1_FBgn0020762:3;Name=Atet-in;Parent=FBtr0077427;parent_type=mRNA
2L bound_moiety=MED(+) intron 4334989 4334995 3.0 + . ID=intron_FBgn0020762:1_FBgn0020762:3;Name=Atet-in;Parent=FBtr0077427;parent_type=mRNA
2L bound_moiety=MED(+) intron 4334462 4334468 2.9 + . ID=intron_FBgn0020762:1_FBgn0020762:3;Name=Atet-in;Parent=FBtr0077427;parent_type=mRNA

Quisiera poder saber si existen grupos de coordenadas a distancia menores de 50 bp teniendo en cuenta las coordenadas de las columnas 4 (inicio) y 5 (fin), y si es positivo poder guardar un archivo ...

Buen día a todos los perleros.

Hoy se me presentó un problema. He estado realizando una resta de fechas con Date::Manip y delta_format(), pero con el formato más completo de fechas GMT.

Sucede que sí la realizo y luego ese resultado lo sumo, pero muestra días y horas incorrectos. Así que decidí realizar las sumas y restas solo en segundos y luego convertirlos en fechas y tiempos. Pero no sé cómo.

Voy a dejar el ...

Hola.

Ando queriendo usar el módulo Tk en Ubuntu 10.04 usando Virtualbox. Acabo de instalar los
paquetes Tk necesarios pero, de todas formas, al intentar cargar el código siguiente no se muestra
ninguna ventana.

El código es el siguiente:

use Tk;

my $ne = MainWindow->new();

$ne->title("hola mundo");

MainLoop;

¿ Alguien me puede ayudar ?

Hola buenas. Estoy tratando de hacer funcionar este ejemplo de SOAP::Lite pero me está dando un error cuando ejecuto el cliente. Me fijé en el cuadrante de versiones y la versión del módulo funciona con la del Perl que tengo instalada...

Si alguno sabe o le pasó lo mismo se lo agradeceré…

Esquema instalado:
Perl v5.12.3
Soap::lite v0.712 (el ppm muestra como que está bien instalado)

Error del cliente:
C:\Documents and Settings\admin>perl c:\cliente.pl
Can't locate ...

Tengo las siguientes líneas:

open(PASS, "< archivo.txt");
my @contenido = <PASS>;
foreach my $linea (@contenido)
{
if($linea =~ m/amigos de perl/)
{
print $linea;
}
}
close(PASS);

archivo.txt

referencia archivo.txt

hola
amigos de perl
en español

salida por pantalla:

amigos de perl


Lo que necesito es que si el script encuentra la cadena de búsqueda, en vez de imprimir la línea en la que está contenida esa cadena, imprima la primera línea, para que ...