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, 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 ...

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 ...

Hola, dispongo de un listado de clusters (cadenas de 3 a 8 palabras) y me gustaría buscar el número de ocurrencias de dichos clusters en varios ficheros de texto contenidos en un directorio.

De momento tengo el siguiente código:


foreach my $nombre_fichero ( <C:\\MI_DIRECTORIO\\*.txt> ){

open(TEXTO, $nombre_fichero);
@lineas=<TEXTO>;
close(TEXTO);
print @lineas;

while($cluster=<DATA>){
chomp($cluster);
$numero_de_veces=()=@lineas=~/$cluster/misg;
print "$cluster: $nombre_fichero: $numero_de_veces\n";
}
}
#LISTADO DE CLUSTERS
__DATA__
IN ORDER TO
THE EFFECT OF
THE NUMBER OF
DUE ...

Que tal amigos Perleros.

Estoy siguiendo un manual de manipulación de objetos y al parecer no lo compila mi Perl (ActiveState 5.6)...

Estoy pensando que es debido a la versión y este manual es viejo, tal vez @ISA ya no se utiliza... Este es el mensaje que me envía y abajo el código. ¿Alguien sabe por qué pasa esto?

Mensaje del compilador

Code: Seleccionar todo

Unrecognized character  \x93 at animals.pl line 2

Este es el código
package Burro; ...