Foro - Perl en Español

Hola a todos, soy ultra nuevo en esto (foros, no Perl :-)) pero ando un poco desesperado porque es algo del curro y ya no sé qué hacer.

El problema estoy seguro que viene del "getstore" pero el tema es que en $file no me llega a meter la página entera que le estoy pasando.

Aquí esta el código: se trata de una subrutina a la que ...

Buenas, a ver si me dan una mano. Tengo armada una aplicación para para guardar contactos. Pero lo que necesito es lo siguiente. Yo le envío a Perl un array de JavaScript y creo otro array con los mismos valores en Perl. Luego verifico cada clave del array está en la tabla; si está, la reescribo y sino está, la cargo. Mi problema principal es que necesito una forma de pasarle constantemente el valor del ...

Saludos, les cuento mi problema...
Tengo el siguiente código....

#/usr/bin/perl -w

use strict;
use IO::Socket;

my @a;
my ($espera, $data, $response, $new_sock, $buf, $leng);
my $host = shift || 'x.x.x.x';
my $port = shift || x;
my $sock = new IO::Socket::INET(
PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp'
)
|| die "socket error : $!/n"
;

if ($sock) {
while (1) {
comando();
$espera = getc(STDIN);
}
}

sub comando {
@a = ...

¡Hola a todos!

Tengo el siguiente error en la ejecución de un script. No aborta pero me sale esta línea por pantalla cada vez que se cumple el if.

Code: Seleccionar todo

Use of uninitialized value in string eq at ./parserLog.pl line 48.

linea48-->if ($info eq ""){....}

¿A qué puedo inicializar @info para que no me salga un error de este tipo 800 millones de veces?

Gracias por adelantado.

Buenas tardes a todos.

Como bien dice el asunto, me gustaría saber si es posible recorrer un log desde el final hacia atrás, ya que los datos que me interesan están al final del fichero y dicho fichero tiene un millón de líneas y creciendo...

Un saludo y muchísimas gracias por vuestra labor.

Hola todos.

En mi actual proyecto accedo secuencialmente a un fichero de log en busca de una fecha en concreto y me preguntaba si no es más eficiente una búsqueda por algún método como quicksort, es decir ir a la mitad del fichero, comparar, si es mayor, ir a la mitad de la mitad anterior, etc...

¿Hay alguna función ya implementada en Perl o hay que implementar el código?

Muchas gracias y un saludo

Hola, tengo una duda, yo trabajo con dos .pl que necesitan trabajar con cookies. y ambos tienen la misma base:

#!/usr/bin/perl

require 'cookie.lib';
if (&GetCookies('usuario')){
$usuario=$Cookies{'usuario'};
print "Content-type: text/html\n\n";
}else{
$usuario= int(rand(999999999999999));
print "Content-type: text/html\n";
&SetCookies('usuario',"$usuario",);
print "\n";
}

Esto para diferenciar los pedidos de productos por usuarios; ahora bien, ¿existe alguna otra forma de crear cookies sin que el XP los bloquee o el antivirus? Esto no me creaba conflictos desde que se cayó ...

Que tal de nuevo molestándolos y solicitando de su gran ayuda.

Estoy haciendo en script en Perl que me genera un PDF a partir de otro, el problema que tengo es que cuando quiero abrir una hoja especifica del documento me manda un error; ya le intenté de varias maneras para solucionar el problema y nada; aquí pongo parte del código y el error que me manda.

$pdf = PDF::API2->open("/var/www/html/formatos/formatoprincipal/formato.pdf");
$fnt = $pdf->corefont('Arial-Bold',-encoding => 'latin1'); ...

Hola amigos Perlianos:

Tengo un script por medio del cual construyo una "Lista desplegable", partiendo de un array, y cuando selecciono una opción de la lista y el valor consta de dos palabras se corta y solo me envía una.

¿Cómo puedo hacer para poder enviar la variable completa, si contiene dos o más palabras?

Para que me entiendan, este es parte del código:

###### Aqui utilizo un Javascript para hacer el envio #######
print"<tr><td ...

Hola
Me gustaría saber si es posible pasar parámetros en la llamada <img src...> a la hora de llamar al cgi que me crea un gráfico para que en vez de ser datos fijos como los del tutorial pasarle unas variables para que me las represente en el gráfico.

Muchas gracias.

Saludos