Hola compañeros,
Tengo un error en un script que hasta hace poco funcionaba y ahora al ejecutarlo salen errores...
El script baja una imagen de una web y la guarda en un directorio local. He aprovechado el script del tutorial
Descargar imágenes vía HTTP.
El script modificado y que antes me funcionaba es este:
#!/usr/bin/perl -w
use strict;
use File::Path;
use File::Copy;
use lib '/usr/lib/perl5/site_perl/5.8.8';
use Image::Grab qw(grab);
my $img = new Image::Grab;
$img->url('http://webcam.cnelbalis.com/record/current.jpg'); ...
-
- Publicidad
Fecha actual 2024-11-26 17:33 @773
News of Mundo Perl
Site map of Mundo Perl » Foro : Mundo Perl
Problemas con List::Util versión 1.21
Read more : Problemas con List::Util versión 1.21 | Vistas : 921 | Respuestas : 4 | Foro : Básico
No puedo mostrar contenido de HoH
Mientras una consulta a la DB me devuelve registros, voy cargando estos en un hash con el fin de poder, luego, desplegar ese listado con alguna que otra restricción:
$altas{$fec}->{$valor}->{identificador}=$id;
$altas{$fec}->{$valor}->{login}=$login;
$altas{$fec}->{$valor}->{dire}=$dire;
$altas{$fec}->{$valor}->{tel}=$tel;
$altas{$fec}->{$valor}->{fdp}=$fdp_rid;
$altas{$fec}->{$valor}->{solicitud}=;
$altas{$fec}->{$valor}->{comision}=;
__OUTPUT__
%hash => {
'06-05-2013' => {
'1' => {
'identificador' => 20623,
'comision' => ,
'login' => 'algio_c',
'dire' => 'XXXXXXXXXXXXXXXXXX',
'tel' => '55555555555555',
'fdp' => 1,
'solicitud' => [
'Disponibilidad OK', ...
$altas{$fec}->{$valor}->{identificador}=$id;
$altas{$fec}->{$valor}->{login}=$login;
$altas{$fec}->{$valor}->{dire}=$dire;
$altas{$fec}->{$valor}->{tel}=$tel;
$altas{$fec}->{$valor}->{fdp}=$fdp_rid;
$altas{$fec}->{$valor}->{solicitud}=;
$altas{$fec}->{$valor}->{comision}=;
__OUTPUT__
%hash => {
'06-05-2013' => {
'1' => {
'identificador' => 20623,
'comision' => ,
'login' => 'algio_c',
'dire' => 'XXXXXXXXXXXXXXXXXX',
'tel' => '55555555555555',
'fdp' => 1,
'solicitud' => [
'Disponibilidad OK', ...
Read more : No puedo mostrar contenido de HoH | Vistas : 654 | Respuestas : 2 | Foro : Básico
Paginación en Perl
¿Qué tal? Nuevamente solicitando de su gran ayuda. Tengo una aplicación en Perl la cual consulto a la bases de datos y me arroja aproximadamente 500 registros, por lo mismo la página crece bastante.
¿Existe algún módulo que me permita manejar una paginación que me muestre en pantalla de 20 en 20 registros?
La base de datos que utilizo es PostgreSQL.
¡¡¡ Saludos !!!
¿Existe algún módulo que me permita manejar una paginación que me muestre en pantalla de 20 en 20 registros?
La base de datos que utilizo es PostgreSQL.
¡¡¡ Saludos !!!
Read more : Paginación en Perl | Vistas : 1401 | Respuestas : 2 | Foro : Intermedio
Problema con tiempos ejecución CGI (timeout)
Hola a todos,
Tengo un problema: ejecuto un programa de Perl desde un cgi (es un cgi que entre otras cosas llama a un programa de Perl para ejecutarlo (ejecución típica: línea de comandos, con opciones y tal). El programa hace sus funciones y devuelve los resultados en los directorios esperados del servidor. El problema es que el CGI se queda colgado (la ejecución del programa depende de que éste a su vez descargue datos ...
Tengo un problema: ejecuto un programa de Perl desde un cgi (es un cgi que entre otras cosas llama a un programa de Perl para ejecutarlo (ejecución típica: línea de comandos, con opciones y tal). El programa hace sus funciones y devuelve los resultados en los directorios esperados del servidor. El problema es que el CGI se queda colgado (la ejecución del programa depende de que éste a su vez descargue datos ...
Read more : Problema con tiempos ejecución CGI (timeout) | Vistas : 2117 | Respuestas : 5 | Foro : Web
Instalando módulos de Perl en Windows 7
Estimados colegas:
Les envío un cordial saludo desde Guadalajara, México y quiero hacer una consulta, quizá alguien me pueda ayudar:
Necesito instalar los módulos siguientes en una máquina con Windows 7 Ultimate:
CGI::Session
Date::Calc
Date::Simple
DBD::MySQL
MySQL-DateFormat
Lo intenté varias veces por medio del Perl Package Manager(PPM) y no puedo pues recibo el mensaje de error:
ERROR: 401 Authorization required
Lo intenté a través del modo comando:
perl -MCPAN -e shell
y tampoco pude pues ...
Les envío un cordial saludo desde Guadalajara, México y quiero hacer una consulta, quizá alguien me pueda ayudar:
Necesito instalar los módulos siguientes en una máquina con Windows 7 Ultimate:
CGI::Session
Date::Calc
Date::Simple
DBD::MySQL
MySQL-DateFormat
Lo intenté varias veces por medio del Perl Package Manager(PPM) y no puedo pues recibo el mensaje de error:
ERROR: 401 Authorization required
Lo intenté a través del modo comando:
perl -MCPAN -e shell
y tampoco pude pues ...
Read more : Instalando módulos de Perl en Windows 7 | Vistas : 1533 | Respuestas : 2 | Foro : Intermedio
Contador CGI
¡Hola amigos! Estoy de vuelta, perdón por la demora.
Resulta que ando trabajando en un contador sencillo para un website que llevo, pero el "querido" contador, me tira siempre en Error 500.
Por acá el código.
#!/usr/bin/perl #Gracias por el arreglo explorer ^^
#Contador de visitas
&escribe_visita;
sub escribe_visita
{
my $user_agente = $ENV{HTTP_USER_AGENT};
my $remote_address = $ENV{REMOTE_ADDR};
my $file = open(VS,"visitas/visitas.txt");
if (!$file);
{
print "Content-type:text/html\n\n";
print "<html>";
print "<head>";
print "<body>";
print ...
Resulta que ando trabajando en un contador sencillo para un website que llevo, pero el "querido" contador, me tira siempre en Error 500.
Por acá el código.
#!/usr/bin/perl #Gracias por el arreglo explorer ^^
#Contador de visitas
&escribe_visita;
sub escribe_visita
{
my $user_agente = $ENV{HTTP_USER_AGENT};
my $remote_address = $ENV{REMOTE_ADDR};
my $file = open(VS,"visitas/visitas.txt");
if (!$file);
{
print "Content-type:text/html\n\n";
print "<html>";
print "<head>";
print "<body>";
print ...
Read more : Contador CGI | Vistas : 1286 | Respuestas : 6 | Foro : Básico
Problema con hash_ref
Tengo este código y una base de datos PostgreSQL.
$Data3->Select2( 'cred07h.historia',
'pan = \'' . $$pan{'pan'} . '\' and deborcre=\'D\' and anomesci=\'' . $$ciclo{'anomesci'} . '\'', 'valor' );
$charge = $Data3->Fetch();
$Statements->ChargeAmount( $$charge{'valor'} );
$Data3->Finish();
Éste depende de un archivo .pm con nombre Data.pm que ejecuta los módulos Select2 y Fetch.
Estos están así:
sub Select2 {
my $self = shift;
my $sql = undef;
my @row = undef;
my @rows = undef; ...
$Data3->Select2( 'cred07h.historia',
'pan = \'' . $$pan{'pan'} . '\' and deborcre=\'D\' and anomesci=\'' . $$ciclo{'anomesci'} . '\'', 'valor' );
$charge = $Data3->Fetch();
$Statements->ChargeAmount( $$charge{'valor'} );
$Data3->Finish();
Éste depende de un archivo .pm con nombre Data.pm que ejecuta los módulos Select2 y Fetch.
Estos están así:
sub Select2 {
my $self = shift;
my $sql = undef;
my @row = undef;
my @rows = undef; ...
Read more : Problema con hash_ref | Vistas : 2681 | Respuestas : 8 | Foro : Intermedio
print y chomp juntos
Hola, soy nuevo en el tema de programación en general... obviamente también en Perl y tengo la siguiente pregunta:
¿Por qué cuando escribo algo como:
while ($linea = <STDIN>){
chomp $linea;}
print $linea;
la función print no imprime nada en la salida estándar?
Lo que intento hacer es asignar varias líneas (desde entrada estándar) a una sola variable.
Por ejemplo:
actg
ggct
aaaa
gtac
Todas esas 4 líneas adjudicárselas a la variable $linea.
De antemano, ...
¿Por qué cuando escribo algo como:
while ($linea = <STDIN>){
chomp $linea;}
print $linea;
la función print no imprime nada en la salida estándar?
Lo que intento hacer es asignar varias líneas (desde entrada estándar) a una sola variable.
Por ejemplo:
actg
ggct
aaaa
gtac
Todas esas 4 líneas adjudicárselas a la variable $linea.
De antemano, ...
Read more : print y chomp juntos | Vistas : 610 | Respuestas : 1 | Foro : Básico
Transporte SMS
Estimados, nuevamente escribo para consultar sobre un script de Perl que, aunque un poco viejito, me pareció muy útil.
El script recibe la dirección del remitente en $ARGV, el número de teléfono como $ARGV y el cuerpo del mensaje en STDIN.
Sólo debemos recibir un mensaje por usuario, luego envía el cuerpo del mensaje al dæmon gnokii-smsd para su envío por sms.
El inconveniente que tengo es que al recibir el correo formateado en HTML, ...
El script recibe la dirección del remitente en $ARGV, el número de teléfono como $ARGV y el cuerpo del mensaje en STDIN.
Sólo debemos recibir un mensaje por usuario, luego envía el cuerpo del mensaje al dæmon gnokii-smsd para su envío por sms.
El inconveniente que tengo es que al recibir el correo formateado en HTML, ...
Read more : Transporte SMS | Vistas : 1234 | Respuestas : 5 | Foro : Básico
Conectanto Perl con MySQL
Hola:
Estoy intentando conectar mi script MySQL pero no hay manera.
Tengo instalado MySQL en una máquina remota y mi código es el siguiente:
my $database = "Datagrabs";
my $dsn = "DBI:mysql:database=datagrabs;host=x.x.x.x:3306";
my $user = ";prueba";
my $pwd = ";password";
my $dbh = DBI->connect($dsn,$user,$pwd, {PrintError => 0})
or die "Couldn't connect to database: " . DBI->errstr;
Pero no hay manera.
Es muy simple pero me da el siguiente error.
Couldn't connect to database: ...
Estoy intentando conectar mi script MySQL pero no hay manera.
Tengo instalado MySQL en una máquina remota y mi código es el siguiente:
my $database = "Datagrabs";
my $dsn = "DBI:mysql:database=datagrabs;host=x.x.x.x:3306";
my $user = ";prueba";
my $pwd = ";password";
my $dbh = DBI->connect($dsn,$user,$pwd, {PrintError => 0})
or die "Couldn't connect to database: " . DBI->errstr;
Pero no hay manera.
Es muy simple pero me da el siguiente error.
Couldn't connect to database: ...
Read more : Conectanto Perl con MySQL | Vistas : 919 | Respuestas : 5 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36882 • Temas totales 7430 • Usuarios totales 1981