Foro - Perl en Español

¡Buenas!

He empezado a trabajar hace poco con Perl, CGI, etc... y ando un poco perdido.

Mi problema es el siguiente: he creado un pequeño formulario para que la gente introduzca un texto, y dicho texto lo quiero traducir llamando a un programa de Perl que lo tengo guardado en /lib/cgi-bin/ que se conecta a Google y utilizando las API de Google Translate me devuelva el resultado.

El formulario es el siguiente (sencillito) y lo ...

Hola,

Estoy intentando ejecutar un script y al ejecutarlo obtengo el siguiente error

ld.so.1: perl: fatal: relocation error: file /opt/interfaces/colectoras/lib/auto/infovista/infovista.so: symbol Perl_Gthr_key_ptr: referenced symbol not found

¿Cómo podría solucionarlo?

Saludos y gracias.

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

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

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