Foro - Perl en Español

Hola.

Estoy creando el típico módulo con una serie de funciones que luego se usarán en otro script. Y tras leer documentación, entiendo que lo mejor es exportar esas funciones, y aquí es donde me aparecen las dudas:

Cuando se usan en el script esas funciones del módulo, se las llama simplemente con el nombre:
use strict;
use warnings;
...
use Mimodulo.pm; # donde está definida la función f_leerTabla(), y que se exporta
... ...

Hola.

Tengo una entrada con el siguiente formato:

texto
texto
...
(ID 3467)

texto
texto
...
(ID 3467)

texto
texto
...
(ID 5993)

Es decir: Tengo un conjunto variable de líneas de texto cuya última línea es un código entre paréntesis, y después otro conjunto variable de líneas de texto cuya última línea es un código -y aquí viene mi complicación- que puede ser o no el mismo código que el anterior, y así sucesivamente... ...

Buenas tardes, estoy haciendo una gráfica de Pareto y al personalizar la imagen web de la gráfica obtengo diferencias de tamaño entre el área de dibujo de la gráfica y el área del dibujo, esto es, tengo el siguiente código para crear la gráfica:

my $c = new XYChart(800, 450, perlchartdir::goldColor() );
$c->addTitle("FALLAS DE PROCESOS", "arialbd.ttf",14);
$c->setPlotArea(350, 60, 400, 365, 0xffffff,-1,-1,$perlchartdir::Transparent,$perlchartdir::Transparent);

Les agradeceré sus comentarios porque no encuentro lo que está sucediendo.

Gracias.

Hola.

De un directorio dado, ¿cómo podría sacar el fichero más reciente? Y una vez que lo tuviera localizado, me gustaría comparar dicho fichero con la fecha actual de forma que si el fichero tiene fecha de ayer, reconocerlo como antiguo, y si tiene fecha de hoy, pues reconocerlo que está al día.

¿Alguien me podría dar una pista?

Muchas gracias y un saludo.

Para monitorización de CPU y unidades que disco que están conectadas y las características o propiedades de todos los dispositivos de la PC o servidor, ¿cómo se puede realizar?

Saludos perleros.

Tengo inconvenientes con mi script. Básicamente quiero ejecutar unos comandos cuya salida se va enlazando a medida que se ejecutan. Este es el código:


@conn1 =
conectar_telnet_cisco( $IPDEVICE, $userbackupsdefault, $passbackupsdefault );
if ( ( $conn1 ) ) {
$mensajeerror .=
"Equipo=$DEVICE, IP=$IPDEVICE, Descripcion=$conn1\n<br>";
$conteoerrores++;
}
else {
# @out=$conn1->cmd("terminal length 0\n");
# sleep(5);
# @out=$conn1->cmd("show interfaces description | include $SERVICEID\n");
@out = $conn1->cmd( String => "terminal length 0", Timeout => 5 ...

Hola de nuevo, tras largo tiempo.

Estoy intentando leer varias URL, de red interna, que requieren autenticación con usuario/contraseña. El objetivo es leer el código retornado e interpretarlo en busca de ciertos valores.

Caso 1: Este funciona correctamente.
use LWP::UserAgent;
$ua = new LWP::UserAgent;
my $req = HTTP::Headers->new;

$req = HTTP::Request->new(GET => 'http://172.22.1.142/accessos/accessos.html');
$req->authorization_basic('miusuario', 'mipassword');
print "Content-type: text/html\
\
";
my $response = $ua->request($req);
print "Response Code: " . $response->code . "\n";
print "Response Content: ...

Hice la prueba hasta con cpanm, y nada, no hay forma de que este módulo se deje instalar en el servidor. Envío adjunto la imagen de lo que tengo.

Buenas tardes.

Me conecto al servidor de correo con normalidad y puedo ver los mensajes de determinada cuenta (correo1). Lo que deseo es poder guardar los adjuntos en una carpeta determinada. Por favor, si alguien tuviera algún enlace. Abajo muestro código de conexión y lectura de correos.

#!/usr/bin/perl -w
use strict;
use Net::POP3;

my $pop = Net::POP3->new('miempresa.pe', Timeout => 10) || die "No se pudo abrir conexión: $!";

$pop->login("correo1", "pwd") or die("No se pudo hacer ...

use DBI;
# See "Creating database handle" below
$dbh = DBI->connect ("dbi:CSV:", undef, undef, {
f_ext => ".csv/r",
RaiseError => 1,
}) or die "Cannot connect: $DBI::errstr";

print "Inicio: \n";
# Selecting
my $sth = $dbh->prepare ("select * from fil");
$sth->execute;
$sth->bind_columns (\my ($fname, $lname, $email, $pageid, $studentid, $a, $b));
my $i =0;
while ($sth->fetch) {

print '$userarray = '.$studentid.';'."\n"; # Aqui es mi duda.. cuando $stundeid cambia su valor ?
print '$userarray ...