Foro - Perl en Español

Hola, cómo están. Espero que bien. Bueno, aquí está mi programa el cual es algo así para traducir algo de Español a Latex:


$archivo = <STDIN>; # se introduce el nombre del archivo a sustituir.

$dic = "diccionario.dat"; # diccionario normal->latex.

open(ARCHIVO,"<$archivo"); # se abre el archivo a traducir.

$count++ while <ARCHIVO>; # contador de las líneas del archivo.

open(ARCHIVO,"<$archivo");

@archivo=<ARCHIVO>; #se le asocia a la el array al archivo.

open(DIC,"$dic"); #se abre ...

Seguro que es una tontería pero llevo media hora con esto y no me sale.

A ver, necesito sacar información de nuestros servidores de impresión para localizar diferencias en la configuración de las impresoras. Hacerlo a mano es un proceso muy farragoso y poco práctico. Así que he instalado el módulo Win32::Printer y funciona bien, pero no sé sacar la información por las referencias.
use strict;
use warnings;
use Win32::Printer::Enum;
use Data::Dumper;

my @printers = ...

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