Foro - Perl en Español

Salu2

Quisiera ir viendo los log según van creciendo a través de una página.

Probé a hacer un cgi como el siguiente código.

Tengo que ponerle a la propiedad tail un valor >= 50 porque si no no muestra nada.

En la consola funciona al 100% pero cuando lo visualizo por web me muestra las mismas líneas aunque lo actualice varias veces.

#!/usr/bin/perl -w

print "Content-Type: text/html\n\n";
print "visualizador de logs<br>";

use File::Tail;
use strict; ...

Buenas gente, necesitaría saber si hay alguna forma de modificar un archivo en Perl, por ejemplo cambiar unas palabras o unos caracteres y/o borrar caracteres.

Lo que necesitaría es solamente cambiar 2 valores de esta cadena de texto:

a:4:{i:0;a:3:{s:8:"cat_name";s:7:"General";s:2:"id";s:1:"1";s:4:"blog";s:1:"1";}i:1;a:3:{s:8:"cat_name";s:7:"General";s:2:"id";s:1:"6";s:4:"blog";s:1:"3";}i:2;a:3:{s:8:"cat_name";s:8:"General";s:2:"id";s:1:"8";s:4:"blog";s:1:"5";}i:3;a:3:{s:8:"cat_name";s:7:"General";s:2:"id";s:2:"10";s:4:"blog";s:1:"7";}}

Necesito cambiar el 3º carácter (en este caso es 4), borrar el último carácter y luego agregarle información.

¿Hay alguno manera de trabajar con el archivos que contiene esto para modificar lo que necesito?.

Muchas gracias, ...

¿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 ...

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 ...