Foro - Perl en Español

Hola muchachos:

Es simple lo que deseo realizar. En definitiva: cambiar el número IP que entrega el ISP. Me he fijado que cuando al resetear el router, mi IP pública cambia, y deseo hacer lo mismo pero con un script en Perl. ¿Alguna idea?

Thanks ;)

Hola, tengo un gran problema para mi.

De repente Apache me ha dejado de funcionar. Pongo "maquina"/cgi-bin/prueba.perl y me sale

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator, root@localhost and inform them of the time the error occurred, and anything you might have done that may have caused the error.

More information about this error may be available in the ...

Hola a todos.

Quería saber si alguien conoce algún módulo para imprimir un texto con un formato determinado en una impresora de matriz de punto.

Si es en otro lenguaje distinto de Perl, bienvenido sea.

Gracias por anticipado y saludos.

Hola a todos,

Llevo unos días intentando manipular un fichero comprimido muy grande (hablamos de unos cuantos gigas). Así que pensé en usar threads para procesarlo y mantenerlo en un formato comprimido, en este caso bzip2. El problema es que no puedo cargar todo el fichero en memoria para manipularlo, así que escribí un script de tal forma que el hilo principal vaya cargando paquetes de líneas según vayan terminando los hilos que hacen el ...

Buenas tardes,

estoy intentando realizar una consulta a una base de datos utilizando el módulo Net::MySQL, pero cuando realizo una consulta intentando filtrar los resultados con WHERE, el programa se queda bloqueado, como si estuviera pensando. En cambio si la consulta la hago sin WHERE, todo funciona bien.

Mi programa es el siguiente:

#!/usr/bin/perl -w

use Net::MySQL;
use strict;

my $mysql = Net::MySQL->new(
hostname => 'localhost', # Default use UNIX socket
database => 'XXXX',
user ...

Gente:
Estoy teniendo un problema, y probé de todo y nada me funciona.

método:

sub procesarUrls
{
my $self=shift;
my @urls=shift;
my @textos;
my $key;
my $value;

#print Dumper(@urls);


#for(my $i=0;$i<=$#urls;$i++)
foreach $value (@urls)
{
print "valor: $value \n";

#print "url: $urls \n\n";
#$self->getDataClarin($urls);
#$self->mostrarAtributos();
#push(@textos,$self->getText());
#$self->setText();
}
return @textos;
}


Invocación:

@urls=$esc->getLinkHome($html);
$esc->procesarUrls(@$urls);


probé pasarlo con @, con %, etc. pero no hay caso lo único que logro mostrar en la dirección ...

¡¡Hola!!

¿Cómo le puedo hacer para quitar ceros de izquierda a derecha y que me deje solo los valores diferentes de 0?

Ejemplo:
0000000456 donde yo quiero obtener solo el número 456

¡¡Saludos!!

Hola, estoy buscando en foros pero no encuentro la solución a mi duda.

Es simple: ¿alguien me puede decir la diferencia entre poner

!/usr/bin/perl o poner

!/usr/bin/perl -w -T

?


¿Qué significa -w -T?

Y ¿cuál es la diferencia entre un archivo con extensión cgi o pl? ¿Da lo mismo una que otra? ¿Realizan las mismas funciones?

Me está marcando el siguiente error en mi sentencia.

if ($lenght $hs_poid="10") {$sc_numero_cuenta=substr($_,17,10);}

Adjunto error.

¡¡Saludos!!

Hola a todos y disculpen la simpleza de esta pregunta, el royo es que estoy empezando en el mundo del Perl, pues tengo una aplicación desarrollada en Perl que necesito montar, pero cuando intento acceder a ella desde la web al link http://my-server/passwd/ donde en la directorio passwd tengo los script .pl, el navegador me devuelve el siguiente error

The server encountered an internal error or misconfiguration and was ...