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

Hola. Intento leer de ucs-2 y convertir a utf-8 y me aparece el siguiente error:

Wide character in print at KeywordToolExternal-CSV.pl line 47, <FILE> line 3.
´╗┐Palabras clave Competencia del anunciante Volumen local de b├║sque
das: diciembre Volumen global de b├║squedas mensuales
amaco regalos 0.13 -1 210

Este es el programa KeywordToolExternal-CSV.pl:

# use Encode qw/encode decode/;
# $ucs2 = encode("UCS-2LE", $utf8);
# $utf8 = decode("UCS-2LE", $ucs2);

use Encode qw/encode decode/;

my ($Fila,$contenido,$contenido_nuevo);
open ...

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

«PAC es un Perl/GTK (Gnome) para la sustitución de SecureCRT/Putty/etc … Proporciona una interfaz gráfica de usuario para configurar SSH/Telnet conexiones: usuarios, contraseñas, espera de expresiones regulares, macros, etc..»



Artículo

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

Hola.

Quería preguntar si alguien conocía una manera de abrir una imagen en una página con CGI sabiendo la ruta de la imagen.

«¿Te parece que Moose es demasiado pesado para tus aplicaciones?

La compilación de los objetos de Moose puede tomar un tiempo considerable durante el arranque de una aplicación, esto podría dar la impresión de que los programas que utilizan Moose son lentos, sin embargo la compilación solamente ocurre al cargar el programa, y dependiendo de la aplicación pude ser que Moose no sea tan pesado como parece.»

Artículo

«Hola gente acá les dejo un script de perl muy bueno para evaluar el page rank de un sitio.

Yo lo uso para probar el pagerank de todos los dominios hosteados en mi servidor plesk y así sugerir intercambio de links.»

Artículo

«Esto está buenísimo, la idea de estos scripts es indexar el contenido de pdfs y docs en una base de datos mysql para su posterior búsqueda. Si bien es medio rebuscado está bueno en muchas situaciones y lo publico porque no creo que haya mucho de esto en internet.»

Artículo