Foro - Perl en Español

Hola a todos...

¿Cómo podría restar dos fechas ??? que el resultado sea en días

¿Cómo podria convertir un timestamp a fecha ??? no necesito las horas, minutos y segundos, solo los días, meses y años...

Gracias por adelantado...

saludos...

lierly

Hola a Todos..

Tengo un sitio web en ASP en un servidor determinado, pero quisiera automatizar algunos procesos usando Perl. Resulta que en una determinada situación quisiera añadirle unas líneas a un fichero que se encuentra en el servidor donde está publicado el sitio web. pero no sé cómo poder acceder desde Perl (que está montado en otro servidor en Linux), sin embargo lo que necesito hacer está implementado vía web.

Si desde el script ...

Saludos.

Estoy usando Class::DBI y quiero utilizar un metodo add_constraint de la siguiente manera:

Code: Seleccionar todo

Telefono::Model::CDBI::Solicitantes->add_constraint('validaestado', estado=>\&check_estado);

sub check_estado{
    my ($valor) = @_;
    return uc($valor) eq 'ACT';
}

El problema que tengo es que, al momento de agregrar o actualizar, al pasarle al campo estado un valor distinto de act (o ACT) retorna falso (o sea check_constraint está funcionando bien) y se genera un error que no he podido capturar y la aplicación finaliza. Lo que ...

Hola:
Soy nuevo en perl y me gustaría hacer lo siguiente:
Dentro del código php, establecer dos opciones:
por un lado, si se pasa un parámetro pasárselo al script .pl. Este parámetro será usado por dicho script.
Por otro lado, no pasar el parámetro, en ese caso se ejecutaría el script sin necesitar el parámetro.

Dentro del código php, estoy utilizando un if/else, pero no se cómo puedes pasar un parámetro a un script .pl. ...

Hola:
Quiero ejecutar el siguiente script de perl (anterior.pl) dentro de código php:

Code: Seleccionar todo

#!/usr/bin/perl
   
use Net::Telnet ();
$username = 'x';
$passwd = 'xy;
$t = new Net::Telnet (Timeout => 60);
$t->open("ip");
$t->login($username, $passwd);
@lines = $t->cmd(fichero.pl");
print @lines;
exit;


Dentro del código php tengo la siguiente función para ejecutarlo pero no se cómo utilizar la función ni nada.

Code: Seleccionar todo

function telnetUpdateACL() {
   $res = system(escapeshellcmd('anterior.pl'),$p);
   return $res;
}


El fichero anterior.pl y el del código php ...

Code: Seleccionar todo

$socket= new IO::Socket::INET (
                PeerAddr=>"$target:$port",
                Proto=>'tcp',
                Timeout=>'1' ); # Timeout.

Hola.

Quiero que alguien me de una mano, porque contraté un hosting en Dattatec.com y no logro conectarme a la base de datos MYSQL.
Pedí ayuda al soporte de dattatec pero sólo saben programar en PHP,
Con PHP logro conectarme pero yo tengo todo en Perl, así que quiero conectarme con DBI.

El servidor tiene instalado el módulo DBI y el MySQL, pero me da error al conectar.

El código que uso es el siguiente:use ...

Hola allá,

Bueno, primero que nada un cordial saludo,
Ultimamente habia estado pensando en una idea referente a decargas pormedio de bittorrent con una serie de programas que pudieran mejorar el tiempo y seguridad de descarga exitosa, ahora, sería de mi agrado hacerl ode la manera más eficiente posible, por lo tanto he estado buscando info acerca de clientes de clase bittorrent, módulos perl, e información de los diferentes protocolos que esta aplicación requiere y ...

Hola a todos

Tengo un problema con fechas. Mi problema es que voy a guardar fechas a una tabla de sql server y este tiene el formato de fecha corta, es decir, 01/06/06 entonces tengo que guardar la fecha como tipo fecha y en ese formato. ¿Qué tengo que utilizar para poder guardarla adecuadamente?

Hola a todos,

En una página WEB XX hay un formulario para el envío de SMS a celulares. Necesito enviarme a un celular alertas de mis servidores. Estoy usando el módulo de CPAN LWP pero no funciona. les dejo el programa que estoy haciendo para esto.
#!/usr/bin/perl -W

use strict;
use HTTP::Request::Common qw(POST);
use HTTP::Response;
use LWP::UserAgent;
use LWP::Debug qw(+);

#use LWP;

my $browser = LWP::UserAgent->new();

my $response = $browser->post('http://www.teletoniaxy.com/sms/index.php',{PHPSESSID => 'f49db37436ffcc033daa986ee62c1fbd', 64404 => '64404', ...