Foro - Perl en Español

Hola nuevamente...
Necesito obtener el valor de un tag de un xml...

<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<epp xmlns="urn:ietf:params:xml:ns:epp-1.0">
<response>
<result code="1000">
<msg lang="en">Command completed successfully</msg>
</result>
<trID>
<clTRID>ABC-LOGOUT</clTRID>
<svTRID>FI</svTRID>
</trID>
</response>
</epp>

<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<epp xmlns="urn:ietf:params:xml:ns:epp-1.0">
<response>
<result code="2000">
<msg lang="en">Unknown command</msg>
</result>
<trID>
<svTRID>FI</svTRID>
</trID>
</response>
</epp>


Necesito obtener el valor del código del error...

<result code="?????">

He obtenido los valores según los nombre de los tag, es ...

Saludos a todos.

Tengo un problema con la ejecución de un script Perl desde un cron. El script al ejecutarse llama a un script en sh para ejecutarlo según las condiciones. Al ejecutarlo manualmente funciona sin ningún problema pero al ejecutarse con el cron el script Perl no ejecuta los sh que llama con la sentencia system().

Por ejemplo:
if (condicion){

system('./ejemplo.sh');

}

Gracias de antemano.

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