Foro - Perl en Español

Estimados:

Tengo una función PHP que hace una llamada a system(perl programa.pl); El programa.pl lee desde un documento n* cantidad de palabras y analiza cada una de ellas.

El problema es que, cuando son unas 700 palabras, el programa nunca termina, pero al hacer print(), para ver cuál de las palabras está analizando no lo muestra en el html, solo cuando se termina la ejecución del script. Además, tengo un script cgi, que sucede lo ...

Hola a todos,

Soy nuevo por aquí. No tengo ni idea de Perl más allá de lo que es ejecutar scripts / herramientas programadas en Perl. Tampoco suelo tener mayor problema con scripts multiplataforma que se suponen deben funcionar tanto en UNIX/Linux como en Windows. Sin embargo, tengo un script que sí me está dando quebraderos de cabeza solo en Windows.

El error que devuelve es:
Reading rules...
Couldn't read . - Permission denied
at ...

«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