Foro - Perl en Español

Hola, necesitaría que me aconsejaran algún módulo para enviar mensajes a celulares. Estuve viendo ya en CPAN algunos, pero no los he probado, primero quiero alguna opinión de alguien que los haya probado, o recomendarme alguno que le parezca bueno, y luego los probaré.

Muchísimas gracias por la ayuda. Adiós.

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