Foro - Perl en Español

¿Alguien me podría recomendar como estructurar un desarrollo Perl?

¿En pm y luego ir llamándoles? ¿Con sus librerías de funciones? ¿estructuras, objetos?

Si alguien me podría explicar un poco cómo lo hace le agradecería para poder ver más claro cómo poder organizarme en Perl.

Gracias y un saludo.

Hola Amigos Perlianos:

Tengo un problema algo extraño al recibir datos en XML, después de hacer un request a un ASP con LWP::UserAgent. Este es parte de mi script:

sub get_basket {
my $ua = LWP::UserAgent->new();
my $xs = new XML::Simple();
$ua->timeout(10);
$ua->env_proxy;
my $req = $ua->request('http://217.154.224.111/travelink/ExternalFunctions/basketcontents.asp?dbname=Travelly-Test-21Nov07&SessionId=93');
if ($req->is_success) {
my $respuesta = $xs->XMLin($req->content);
print Dumper $respuesta;

}else{
print "<p>Server Error, please try later ...</p>";
exit;
}

} # fin de get_basket

Al ejecutar esta ...

Hola a todos,

Mi duda es muy sencilla pero no consigo encontrar información sobre ello.

Tengo un pipe en Linux en el que el fichero de salida del primer programa es el fichero de entrada del segundo programa y necesito conocer el nombre de ése fichero en el segundo programa para añadirle unas cosas. La cuestión es que el nombre de ése archivo es variable y lo crea el primer programa, entonces no lo conozco. ...

¡Hola a todos!

He creado un módulo para una aplicación webmin y no sé cómo instalarla sin que tenga que modificar código de ficheros de configuración del webmin.

Aparte de borrar un fichero llamado "module.infos.cache" que se debe hacer a pelo en la instalación, ¿debo ejecutar algún script del webmin para que me instale mi nuevo módulo?

Un saludo y gracias por vuestro tiempo.

Hola.

Estaba mirando los tutoriales de la web y he visto uno sobre programación de un foro con Perl. Y en uno de ellos decía que en la web está disponible la descarga del script completo. Pero he buscado y no la he encontrado.

A ver si me podrían facilitar la URL de descarga.

Hola de nuevo:

Tengo unos cuantos scripts con Net::LDAP que me sirven para localizar de modo rápido determinados atributos del servidor LDAP. Hasta ahora cada vez que necesitaba consultar un nuevo atributo, pues copiaba un script, cambiaba el atributo a buscar y ya está. El problema es que cada vez tengo más programillas dispersos y duplico muchas cosas.

Así que me he puesto a aprender a pasar argumentos al programa y así tener uno solo ...

¡Ya tenemos nueva versión de Perl estable!

¡Cinco años desde la última, la versión 5.8!

Aunque casi todos usamos una versión muy moderna (la 5.8.8 de febrero del año pasado), la nueva versión 5.10 trae muchas novedades.

Os lo podéis bajar por bittorrent (preferido) o desde el mirror de CPAN más cercano. Para los que tenéis Windows, ActiveState ya tiene su versión compilada.

Y ya sabéis... ¡el último que se lo instale es un programador ...

Hace mucho que no pongo nada, así que ahí va un dato práctico y una frase celebre...

Comienzo para los que aun tienen duda con el crontab:

crontab -e

Código :
# 11 23 02 10 1 amule
# | | | | | |
# | | | | | +-------Comando
# | | | | +----- dia de la semana (0 - 6) (Sunday=0)
# | | | +------- mes (1 - 12) ...

Hola:

No lo entiendo, esto lleva funcionando casi 8 meses sin fallar ni un día y hoy ha fallado. Es un programilla que se conecta a la página de El País, se baja ciertos cómics y me los envía por correo.


#!/usr/bin/perl

use strict;
use warnings;
use WWW::Mechanize;

my ($url,@links,$mech,$vineta);

$url = "http://www.elpais.com";

$mech = WWW::Mechanize->new(autocheck =>1);
$mech->get($url);

getlink("El Roto");
getlink("Romeu");
getlink("Forges");

# getlink() gets as first and only parameter the name of a ...

Hola.

Tengo el módulo de Sendmail ya instalado, pero el programita siempre me muestra error al enviar.


use strict;
use Mail::Sendmail;

# Creamos el hash con nuestro mensajes
my %mail = (
To => 'Para <[email protected]>',
From => 'De <[email protected]>',
Subject => 'Asunto del mensaje',
Message => 'Mi mensajes',
Smtp => 'mail.hotmail.com'
);

unless (sendmail(%mail)) {
# Error!
print "ERROR\n";
exit(1);
}

# Envío correcto.
print "OK\n";
exit(1);


He probado con más servidores ...