Foro - Perl en Español

«Pues hemos mencionado la generación de sellos para las facturas electrónicas del SAT, su validación y ahora vamos a dar cierre al ciclo de la emisión, con lo que se le conoce como la representación impresa del comprobante fiscal digital.

Me dí a la tarea de hacer un pequeño script en Perl que convierte el XML de la factura electrónica a su versión en PDF, tomando en cuenta que yo lo hago por Medios Propios ...

«Pensaba que el sistema gestionaba de forma automática el spindown de discos pero he podido comprobar que no es así, y en el servidor de casa por durabilidad de los discos quiero que los dedicados a almacenar pelis y música sólo se activen cuando son usados. »

Artículo

Hola, necesitamos ayuda para descargar una hash. Tenemos unas mil keys, cada una con varios values cargadas en un hash, pero no sabemos cómo descargar los values, ya que nos pinta únicamente los values de la última key para todas las keys.

Este es el código que estamos utilizando:
foreach my $key1(keys %$estructura)
{
foreach $value (values %$estructura)
{
@value=@$value;
}
print "$key-> @value";

¡¡¡Gracias!!! :P

Necesito comenzar a desarrollar una aplicación que tiene por finalidad acceder a un webservice e interaccionar con el mismo.

Lo que agradecería muchísimo es que me indiquen qué módulos utilizar para lograr lo siguiente:

Características Web service: (Soap, WSDL)

1) Requiero para comenzar a interactuar generar un XML, con firma digital y certificado. ¿Qué módulos veo para lograr esto?

2) Obtenido lo anterior, debo codificarlo en Base 64. ¿Qué módulo utilizo?

En resumen, necesito trabajar ...

«Hace poco tiempo tuve problemas con una regex que no tomaba lo que, al parecer, yo le indicaba. El problema no es grave, pero tiene que ver sobre cómo Perl trata las expresiones regulares y las wildcards.»

Artículo

Por qué no me imprime lo mismo que en el navegador, esta URL, por ejemplo:

http://www.google.com/#q=hola&hl=es&prmd=ivnsu&ei=-GmPTfjVBceTtwemjsnKDQ&start=90&sa=N&fp=1&cad=b

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $query=$ARGV;
my $resp = $ua->get($query);
my $content = $resp->content;
$save = $ARGV;
#print "\n$content\n";
system('if not exist html (mkdir html)');
open (ESCRIBIR,">html/$save.html");
print ESCRIBIR $content;
close (ESCRIBIR);
print "Guardado en html/$save.html";

¿Cómo consigo eso?

Hola a todos.

Quisiera delimitar el tiempo de consulta a una página web. Ejemplo:

Un request; si la página no responde en 5 segundos, exit, para que no se quede congelado ahí.

Saludos.

No puedo remplazar estos caracteres: \ y ^.

$_ = "cadena que contiende \ y esto ^";

reemplazando con s///g no me funciona. Lo intenté con s///g, y nada.

Valores decimales de los caracteres, en iso-8859-1:
92 = \
94 = ^

$char=chr(92);
$content =~ s///g;
$char=chr(94);
$content =~ s///g;

Saludos

Hola amigos. Este es mi primer mensaje en el foro. Soy muy nuevo en Perl. Sin embargo, comprendo bastante bien el lenguaje, pero por falta de experiencia, a veces me veo en aprietos y no sé cuál es la mejor manera de hacer algo.

El problema que tengo es el siguiente, y no sé por dónde encararlo:

Tengo un script de perl corriendo en background, y cada x tiempo lee desde una base de datos ...

Estimados, soy nuevo en el foro y me encuentro con un problema.

Bajé un script de Internet el cual interpreta el reporte del escáner Nessus con salida XML a XLS. El problema es que me gustaría agregar la columna "ip address" en las solapas del nivel de cada vulnerabilidad pero no sé cómo editar el script para lograr esto.

Pastebin
http://pastebin.com/ATWqVS3J

Parser Nessus XML
https://secure.bluehost.com/~melcarac/w ...