Foro - Perl en Español

Estimados,

Estoy presentando problema con el crontab. Deseo que se ejecute una tarea en la siguiente frecuencia:

«Cada 5 minutos, que parta a las 8:30AM y termine a las 21:45PM» He intentado con las siguientes entradas, pero todas arrojan error:

30,45/5 8-21 * * *

0 30/5 8-21 * *

Estimados, favor su apoyo.

Saludos

Hola,
Necesito procesar las notificaciones de PostgreSQL corriendo para cada una de ellas su correspondiente función que puede demorar unos segundos.

El siguiente código es un pequeño avance de cómo debería funcionar:
#!/usr/bin/perl
use strict;
use DBI;

my $dbh = DBI->connect( "dbi:Pg:dbname=prueba host=127.0.0.1 port=5432", '', '' ) or die "Sin Conexión!!!\n";

$dbh->do("LISTEN xdemonio");

LISTENLOOP: {
while ( my $notify = $dbh->pg_notifies ) {
my ( $name, $pid, $payload ) = @$notify;
print "$name - ...

¡Hola!

Tengo un problema con un programa y me dijeron que en este foro me podían ayudar. Estoy programando juegos con la librería SDL con C++, pero no avanzo mucho porque apenas soy principiante con esta librería.

El problema que tengo es que quiero hacer colisionar dos cuadrados; uno amarillo que es el "PJ" el cual puedo mover por la pantalla y otro gris que está fijo en las coordenadas (1300,1500) todo funciona bien pero ...

Saludos a todos..
Tnego poco tiempo de estar trabajando con PERL, pero tengo necesidad de hacer conexinoes con bases de datos tanto en MySQL como en PostgreSQL. Ahora tengo un problema con la instalacion de DBD::pg el driver para postgresql, baje el modulo del CPAN, lo descomprimi, entre al directorio que me creo, pero al hacer un:
perl Makefile.PL
Marca lo siguiente:
Configuring DBD:: Pg
Remember to actually read the README file!
Path to pg_config? ...

Tengo el siguiente código.


<?php

/*

Contador 0.1

Coded By Doddy H

*/


class contador {

function start() {

$host = "localhost";
$user = "root";
$pass = "";
$db = "contador";

if ($test = @mysql_connect($host,$user,$pass)) {
if (mysql_select_db($db)) {
return true;
}}}

function end() {
$test->close;
}

public function instalar() {

start();
$todo1 = "create table visitas (
suma int(10) UNSIGNED NOT NULL AUTO_INCREMENT,
PRIMARY KEY (suma));
";

if (@mysql_query($todo1)) {
return true; ...

Hola, buenos días. Al ejecutar el programa me da este error y no sé por qué. ¿Alguien me podría decir algo? Muchas Gracias.

Este es el error:

DBD::Pg::st execute failed: ERROR: permiso denegado a la relación fasta at fastaparser.pl line 71, <$FH> line 1.
Can't call method "commit" on an undefined value at fastaparser.pl line 76, <$FH> line 1.
Issuing rollback() due to DESTROY without explicit disconnect() of DBD::Pg::db handle dbname=trabajo;host=localhost;port=5432 at fastaparser.pl line 76. ...

Hola. Tengo el siguiente código.

if(isset($_POST)) {

$ipfinal = ip2long($_POST);
$ipaz = $_POST;

if ($ipfinal == -1 || $ipfinal === FALSE) {
echo "<script>alert('Eso no es una IP');</script>";
} else {
if (@mysql_query("INSERT INTO bansystem(id,ip)values(NULL,$ipaz)")) {
echo "<script>alert('IP agregada');</script>";
} else {
echo "<script>alert('Error');</script>";
}
}
}

Y las tablas

create table bansystem (
id int(10) UNSIGNED NOT NULL AUTO_INCREMENT,
ip varchar(15),
PRIMARY KEY(id))

El problema es que no puedo subir la IP ...

Buenas...

Este es mi primer mensaje así que saludos a todos y felicitaciones. Quiero hacer un programa con entorno gráfico que funcione en una máquina con Red Hat y la situación es la siguiente:

- No tiene instalado Gtk
- No tengo permiso de administrador
- No tiene conexión a Internet

Estoy intentando instalar el Gtk y en el proceso me indica que no encuentra pkg-config. En lo que he visto, para instalar pkg-config es ...

¡Hola! Tengo una pequeña duda. He creado un programa en Perl que necesita conectarse a MySQL. Todo funciona correctamente porque está usando la base de datos de mi ordenador y mi clave. El problema que veo yo cuando lo instale otra persona en su ordenador, y lógicamente, no tendrá la misma clave que yo, ¿habría alguna manera de hacer que funcionase en cualquier PC? Es que no se me ocurre nada. Lo único la persona ...

Hola, buenas noches, estoy tratando de hacer algo sencillo pero algo me falla y no encuentro el problema.

El código es el siguiente:

#!/usr/bin/perl

use Asterisk::AGI;
use File::Basename;
use DBI;
use DBD::mysql;
use POSIX;

$AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();



# CONFIG VARIABLES
$platform = "mysql";
$database = "aaa";
$host = "localhost";
$port = "3306";
$tablename = "tabla";
$user = "root";
$pw = "";

#DATA SOURCE NAME
$dsn = "dbi:mysql:$database:localhost:3306";
# PERL ...