Foro - Perl en Español

Each time there is a new posting here :http://losangeles.craigslist.org/web/ it should email me the description, so i can respond back to them, the website scanner should scan this every 10 mins to see if there is a new listing, if you build that.

Traducción, creo que dice:

«Cada vez que haya un nuevo anuncio en: http://losangeles.craigslist.org/web/ debe enviarme un email de descripción, para que pueda responder a ellos, el ...

¡Hola a todos!

Tengo una consulta: estoy creando un script para poder conectarme a dos bases distintas ya que necesito extraer datos de ambas. Estoy usando el DBD::mysql, y así tengo mis objetos inicializados:

use strict;
use warnings;

use DBI;
use Mail::Sender;
use DateTime::Format::Strptime;

my $Strp = new DateTime::Format::Strptime(pattern=>'%Y-%m-%d');

my $db='fase2';
my $host='xxx.xxx.net';
#$port="3306";
my $userid='xx-xx';
my $pass='';
my $connectionInfo="DBI:mysql:database=$db;host=$host;mysql_socket=/var/lib/mysql/mysql.sock";

my $dbh = DBI->connect($connectionInfo, 'xx-xx', '$xx', {'RaiseError' => 1});
die "Ha habido un problema al ...

¡Hola a todos!

Tengo una duda: estoy haciendo un script en el cual tengo dos fechas en el formato 'YYYY-mm-dd' (2009-03-25), y estas dos fechas tengo que compararlas de manera que si la fecha actual -o sea la del sistema-, está entre el rango de la fecha1 y la de la fecha2, me devuelva un true o 1 o lo que sea; caso contrario lo opuesto.

¿Alguien tiene idea de cómo hacer ésto?

Estaba leyendo ...

Hola a todos...

Tengo un problemilla al intentar hacer system("export PID_SYNC=$pid") donde $pid es mi variable local que he sacado con $$.

Resulta que al ejecutarlo me dice la bash lo siguiente: Can't exec "export": No existe el fichero ó directorio at....

Lo mismo ocurre cuando intento hacer sytem("unset PID_SYNC").

¿Sabe alguien qué puede estar ocurriendo?

Muchas gracias.
Saludos.

Tengo un pequeño problema, creo que es muy básico, pero me gustaría saber si se podría resolverse. Dado un pequeño código para hacer Request a una página.

#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Request;

$b = LWP::UserAgent->new() or die "No se puede inicializar el modulo.";
$b->agent('Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)');

$host = "http://www..com";
$respuesta = $b->request(HTTP::Request->new(GET=>$host));
$contenido = $respuesta->content;
print $contenido;


Cuando normalmente se visita una página usando un navegador (Firefox) toda información del código ...

Hola a todos.

Alguien sabe dónde puedo obtener documentación de la API de este módulo.

Por ejemplo, no tengo ni idea de los métodos que existen para una clase en concreto.

Mi problema particular es que trato de obtener la posición x,y de un icono generado con Gtk2::TrayIcon.

Muchas gracias por adelantado.

Hola, buenos días, tengo un problemilla con mi programa, lo que estoy haciendo es lo siguiente:

En el cgi X, tengo una referencia, por la cual paso 3 parámetros: planta, maq y sub.

<td colspan=50 align=center bgcolor=silver>
<a href=\"microbiologico.cgi? planta=$GrupoExtranet\&maq=2&sub=$d\">

entonces en el cgi Y, si le doy print $planta, $maq y $sub, sí me las muestra al inicio del cgi, pero conforme va avanzando el cgi ya no me respeta el valor y no ...

Resulta que hoy me levante mal... y se me olvidó mucho de lo poco que sabía de Perl. Ahora mi problema es hacer una función que me retorne un array de hash. El nombre de los campos los tengo en un array y son los que serán las Key y el valor lo tengo en otro array que serán los valores para los KEYS para lo que tengo:

my %dats;
$registros = "5||22junio.jpg||tumb005.jpg||1||22||06||2008";
$registros = ...

Tengo un módulo que lo uso así
package seguimiento;

use strict;
use lib('/home/bitacor4/public_html/lib');
use lib('/home/bitacor4/public_html/modulos');
use base 'CGI::Application';

use CGI::Application::Plugin::DBH (qw/dbh_config dbh/);
use CGI::Application::Plugin::ConfigAuto (qw/cfg cfg_file/);
use CGI::Application::Plugin::Session;
use CGI::Application::Plugin::Authentication;
use HTML::GoogleMaps;
use CGI::FormBuilder;
use Data::Dumper;
use FILE::kreader qw(kread); # este es mi módulo

Software error:
"kread" is not exported by the FILE::kreader module
Can't continue after import errors at ../modulos/seguimiento.pm line 16
BEGIN failed--compilation aborted at ../modulos/seguimiento.pm line 16.
Compilation failed in require at ...

Hola, amigos:

He borrado por línea de comando una línea de un archivo haciendo...

Code: Seleccionar todo

perl -n -i.bak -e "/3202016/||print" C: \\CASEALERT2.txt

... hasta aquí todo OK.

... pero luego en un archivo.pm hago lo mismo y no me resulta el borrado del archivo (intentado de varias formas posibles)...

#!C:\perl\bin\perl.exe -w
use CGI;

#`perl -n -i.bak -e "/3202016/||print" C:\\CASEALERT2.txt`;
#open(AN,`perl -n -i.bak -e "/3202016/||print" C:\\CASEALERT2.txt`);
#close(AN);
#@output = `perl -n -i.bak -e "/3202016/||print" C:\\CASEALERT2.txt`;

system(`perl -n ...