Foro - Perl en Español

Como puedo obtener la nueva posición de mi Item en Gnome::Canvas cuando lo arrastro con el mouse y luego lo suelto, dentro del canvas, ¿hay algún método que pueda hacer esto?

De antemano, gracias por la ayuda.

Eddy

He creado el siguiente código:

#!/usr/bin/perl -w
use strict;
use HTTP::Request;
require LWP::Parallel::UserAgent;

my $pua = LWP::Parallel::UserAgent->new();
$pua->in_order (1); # handle requests in order of registration
$pua->duplicates(1); # ignore duplicados
$pua->timeout (100); # segundos
$pua->redirect (0); # sigue las redirecciones
$pua->max_hosts(4); # maximo numero de hosts paralelos
$pua->max_req (1); # maximo numero de requests paralelos


open (INDICE,"indice.txt"); #Abro el archivo que contiene las urls
my @reqs = <INDICE>;

foreach my $req (@reqs) {
print "Registering ...

Hola, soy nuevo en Perl, y estoy haciendo un programita para base de datos con MySQL, pero no marca error ni tampoco muestra resultados en la pantalla. El código se muestra a continuación:

#! /perl/bin/perl
print "content-type: text/html\n\n";

use DBI;

$db="itlm";
$host="localhost";
$port="3306";
$userid="hugoa";
$passwd="hugoa";
$connectionInfo="DBI:mysql:database=$db;$host:$port";

$dbh = DBI->connect($connectionInfo,$userid,$passwd) or die "No se puede conectar con la base de datos, intentelo mas tarde";

$query = "SELECT * FROM alumno";
$sth = $dbh->prepare($query);
$sth->execute();

print "Resultados<p>"; ...

Hola, disculpen, tengo un problema al asignar variables. Miren: tengo este script:
#!/usr/bin/perl

## Asigno Las Variables
my $x = a;
my $dx = '5 AND (SELECT Count(*) FROM id WHERE id LIKE "$x"."%") > 0';
#Imprimo
print "http://web.com/page.aspx?id="."$dx";
El problema está en la declaración de variables porque cuando imprimo sale esto:
http://web.com/page.aspx?id=5 AND (SELECT Count(*) FROM id WHERE id LIKE "$x"."%") > 0
O sea, la variable $x parece que no está concatenada.

A ...

He leído al respecto y se necesita hacer un .css entre otras cosas, pero la pregunta es ¿existe una extensión que automáticamente cargue en el móvil o PAM?

Ya que la página web de la compañía se carga terriblemente en un PAM, solo se ve el menú lateral que son imágenes y el contenido de adentro no se ve, está tapado por los laterales, ¡esto conlleva a que no resulta conveniente ver la página por ...

Estoy utilizando la siguiente forma para extraer la información de una tabla:

$sth = $dbh->prepare("SELECT * FROM Tabla1 WHERE campo1 = 'hola'");
$sth->execute();

print "<table>\n";
while( $resptr = $sth->fetchrow_hashref() )
{
print "<tr>";
print "<td>" . $resptr->{"campo1"};
print "<td>" . $resptr->{"campo2"};
print "<td>" . $resptr->{"campo3"};
print "<td>" . $resptr->{"campo4"};
print "<td>" . $resptr->{"campo5"};
print "\n";
}
print "</table>\n";
print "</body></html>\n";

$dbh->disconnect;

¿Se ve? Utilizo el fetchrow_hashref() para extraer toda la información.

Lo que quería saber ...

Hola, buenos días, quisiera saber de qué forma me da la posibilidad Perl de sumar horarios. Por ejemplo:

14:30:00 + 00:05:00 = 14:35:00

Tengo el horario en un variable y le deseo sumar (o restar) una cierta cantidad de minutos, ¿de qué manera lo hago? Muchas gracias.

Dadas oraciones en español (correctamente escritas):
* Indicar qué palabras se pueden reconocer; para las palabras reconocidas indicar su categoría gramatical y características morfosintácticas.
* Emplear el diccionario de la pag. http://ada.fciencias.unam.mx/~jfgarcia/ ... argas.html (morfo) o algún otro de Internet

Resultados:
Indicar claramente qué dominio han considerado para su proyecto
Presentar las 10 oraciones (¡¡diferentes!!) tipo que los usuarios podrían hacer
Presentar los resultados para las oraciones que se ...

Intento crear un script que busque en un directorio todos los archivos terminados en .jpg y que los mueva a un directorio:
#!/usr/bin/perl

use strict;
use File::Find;

my $dir = ' C:\img ';

find(\&imprimir_archivo_img, $dir);

sub imprimir_archivo_img{
my $elemento = $_;

if(-f $elemento && $elemento =~ /\.jpg$/)

{

my $img = $elemento ;

my $dest = 'C:\';

move( $img, $dest);

}

Pero al intentar interpretarlo me da:

C:\Documents and Settings\user\Escritorio\Programando\Perl\project>Img.pl
Can't find string terminator "'" ...

Estimados usuarios

Tengo un script Perl, el cual necesita conectar a una base de datos Oracle utilizando el módulo DBI...

Al momento de instalar el driver específico para Oracle "DBD::Oracle" me genera el siguiente error::
Trying to find an ORACLE_HOME
Your LD_LIBRARY_PATH env var is set to ''

The ORACLE_HOME environment variable is not set and I couldn't guess it.
It must be set to hold the path to an Oracle installation directory
on ...