Foro - Perl en Español

Tengo la siguiente función que genera un email y lo envía a destino, utilizando la librería sendmail. Desearía anexarle el envío de un PDF adjunto. ¿¿Cómo anexo el mismo??

sub enviar_email
{

my $mailprog = '/usr/lib/sendmail';
my $origen = '[email protected]';
my $destino ='[email protected]';

my @texto_confirma =();
my $linea = '';
# ----- Texto del mail---------------------------
push(@texto_confirma,"");
push(@texto_confirma,"Texto cuerpo mensaje del email");
push(@texto_confirma," texto cuerpo xx x x x x xx ......");
push(@texto_confirma,"");
open (MAIL, "|$mailprog ...

Es muy simple mi pregunta... tengo unas variables, que cuando intento mostrarlas me aparece el siguiente mensaje:

XML::LibXML::Element=SCALAR(0x881b508)

y no solo con XML::LibXML... ¿¿¿Esto es una referencia escalar??? ¿Cómo puedo mostrar el contenido de esa variable?

Me ha ocurrido también con variables HASH, que tampoco logro mostrar.

Espero me puedan ayudar.
thanks

Hola:

tengo un nuevo plugin para Nagios que casi funciona como pretendo ;)

Aquí va el código:
#!perl
use warnings;
use strict;
use File::Find;

# hash with the nagios errorlevels
my %ERRORS = (
'OK' => 0,
'WARNING' => 1,
'CRITICAL' => 2,
'UNKNOWN' => 3,
);

# here we save the number of missed shortcuts in the subroutine _check_path
my $count = 0;
# here ...

Estimados... estoy realizando una aplicación cliente servidor con sockets, y la comunicación se lleva a cabo mediante documentos XML... la idea es analizar este documento una vez que ha sido recibido y verificar que es el que estoy esperando que llegue...

Estuve leyendo sobre los Schema, y vi unos cuantos códigos, pero sin lograr entender cuál es el funcionamiento de estos... Me gustaría descomponer completamente el xml cuando ingrese, para ver tag por tag los ...

¿Cuál sería la forma correcta de descargarme una página web a través de un proxy utilizando Perl?

Esta es la única manera que me funcionó pero no me termina de convencer.

#!/usr/bin/perl
$ENV{'HTTP_PROXY'} = 'http://proxy:8080';
system ('wget http://pagina');

¿Cómo podría realizar lo mismo con sockets?

Gracias

Buenas, tengo una web con un login y password y necesito hacer peticiones GET dentro de la página, o sea si relleno los formularios y me logueo no podré hacer más peticiones GET logueado ya que perderé el logueo, porque no guardo ninguna cookies; esto lo quiero implementar con los módulos LWP::UserAgent y HTTP::Request u otro si es necesario...

La cookie que tengo es similar a esta:

__utma=127297036.1477818754.1264947825.1264947825.1264947825.1; __utmb=127297036; __utmc=127297036; __utmz=127297036.1264947825.1.1.utmccn=(direct)|utmcsr=(direct)|utmcmd=(none); PHPSESSID=15ce758s14c6806dsd82cfb775fdc53d0

Saludos.

Hola,

Tengo el siguiente programa:

my $i=0;
push (@numeros,$i) while ($i++ <= 10); #supongo que @numeros=();
$cadena=join(",",@numeros);
print "$cadena\n";

Lo que me muestra en pantalla es : 1,2,3,4,5,6,7,8,9,10,11

Y no entiendo por qué no muestra : 0,1,2,3,4,5,6,7,8,9,10
que a mi parecer es lo que debería hacer, puesto que my $i=0.

¿A qué es debido?

¡Muchas gracias!

Hola, buenas. Mi intención es crear un script que me permita guardar en un txt unos datos en concreto que tengo en una página web.

width="62">GUARDAR_1</td>
target="_blank" class="style14">GUARDAR_2</a>
download/GUARDAR_3"
author/AQUI_PUEDE_PONER_CUALQUIER_COSA">GUARDAR_4</a>

...

width="62">GUARDAR_1</td>
target="_blank" class="style14">GUARDAR_2</a>
download/GUARDAR_3"
author/AQUI_PUEDE_PONER_CUALQUIER_COSA">GUARDAR_4</a>

...
Así sucesivamente.

Quiero guardar los GUARDAR_* en sus correspondientes arrays @guardar1, @guardar2, @guardar3, @guardar4.

Y lo que he puesto delante y después de cada GUARDAR_* son los string para localizar su ubicación.

En la última línea donde ...

Este es el server que recibe la info del cliente... Lo que deseo hacer es que devuelva al cliente un mensaje...

#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket;
use Hola::hola;

our $PORT = 3121;
our $PROTO = 'tcp';
our $CLIENTS = 128;
my $TIME_OUT = 5;
my $server = IO::Socket::INET->new( Proto => $PROTO,
LocalPort => $PORT,
Listen => $CLIENTS,
Reuse => 1);
if (not defined $server){ # Si es que no se puede levantar ...

Hola a todos, les escribo para consultar sobre alguna librería que me recomienden para leer archivos HTML. Leí un poco sobre HTML::Parser pero no satisface mi necesidad.

Lo que necesito hacer es lo siguiente: me pasan un archivo HTML y necesito buscar algunos campos en ese documento (matrícula, nombre, materias, materias, etc). ¿Alguien tiene alguna idea? La verdad la agradecería mucho.

P.D.: O tal vez la solución sí es con HTML::Parser pero no sé cómo ...