Foro - Perl en Español

Hola amigos, ¿cómo están?

Ando buscando una manera de controlar los clic que mis usuarios dan en los banners. Pero no sé me ocurre la manera de implementarlo con los banners SWF.

Para los banners de imagen tengo un script que primero contabiliza el clic y después redirecciona, pero el problema es que con los SWF no puedo hacer lo mismo pues no puedo utilizar el método a href.

¿¿¿Alguna idea???

Gracias de antemano

Saludos, con una consulta: tengo que hacer un programa servidor a través de un webservice que recibe un mensaje xml encriptado en base64, para luego mandarlo a un servidor tcp. La parte de la codificación y el tcp sí sé cómo se hace, pero la parte del webservice no. Quisiera saber si me pueden orientar para ver por dónde empezar.

Es RPC.

http://yapc-surveys.org/ es la nueva página donde se publican los resultados de las encuestas de cada una de las conferencias Perl celebradas a lo largo del año.

Están las respuestas y datos de los años 2006 a 2008, y se espera ir publicando las nuevas conferencias a medida de que se vayan realizando.

Saludos a todos... recién comienzo con esto del Perl y me gusta mucho ya que me da cierto control...

Aquí detallo mi consulta

Escenario:

Yo envío un archivo mediante formulario a un script CGI. Éste lo graba en el servidor mediante este fragmento de código :

open (OUTFILE, ">$tmp_dir/$archivo") || die "No Open";
binmode(OUTFILE);

while ( read(STDIN, $buffer, 1024) )
{ print OUTFILE $buffer; }

Resultado del envío (solo fragmento del comienzo y final)

-----------------------------41184676334 ...

Buenas tardes. Una duda... trato de conectarme a una base de datos

DB2 versión 8.3

pero no me deja conectarme... me manda el siguiente error

Code: Seleccionar todo

DBI connect('dsnContent','root',...) failed: [unixODBC][IBM]
[Controlador ODBC de iSeries Access]Anomalía de enlace de comunicaciones.
comm rc=10061 - CWBCO1049 - No se ha iniciado la aplicación  del servidor iSeries
(SQL-08004)

No sé si me falta bajar alguna librería aparte, porque esa me está tronando, y no me deja conectarme. Mi archivo es ...

¡Hola! Tengo un problema, tengo un webservice java y un cliente en Perl; conecto con el soap y llamo a un método que me devuelve un array, el array lo recibo pero solo recibo la primera posición del array, y no sé qué hacer o cómo tengo qué hacer para recibirlo entero.
¡Muchas gracias! Un buen foro éste, ¡pena no encontrarlo antes!

¡Un saludo!

Hola que tal amigos.

Tengo un problema muy grave pues tengo que subir un sitio a un servidor que me está dando problemas, lo que pasa es lo siguiente:

Tengo CMS sencillo en el cual hay un formulario donde subo título, fecha, contenido, y una imagen.

El problema es que tengo un editor TinyMCE dentro de mi textarea contenido, y a veces sucede que al querer subirlo se tarda muchísimo y termina mostrándome error, miren, ...

Tengo el siguiente programa que por cierto lo copié de algún foro por aquí...

#!/usr/bin/perl

use Net::SFTP::Foreign;

my $host = 'XXX.X.XX.XXX';
my $port = 2222;
my $user = 'root';
my $pass = '***********';

my $sftp = Net::SFTP::Foreign->new(
host => $host,
port => $port,
user => $user,
password => $pass,
# more => '-v', # No es compatible esto con la opci<F3>n 'password' anterior
);

$sftp->error and die "SSH connection failed: " . $sftp->error;

print $sftp->cwd, ...

Hola todos,

A partir del día de hoy 18 de Febrero del 2009, oficialmente el dominio de "Perl en Español" es perlenespanol.com.

Todas las ligas de perlenespanol.baboonsoftware.com están redireccionando correctamente con un 301 para que los buscadores ya den de baja ese dominio y cuenten como bueno este.

De igual manera el sitio fue migrado a otro servidor. Esto para bajar un poco los costos al mismo tiempo que subimos de velocidad.

Un saludo a ...

Hola buenas, tengo un problema al hacer una condición con if.

$user = $1 if ( $doc =~ m/::(.*?)__/mosix);
if (!$user) {
print "\033[1mUser mysql:\033[0m not found!\n";
}
else {
print "\033[1mUser mysql:\033[0m $user\n";
}

Mi código lo tengo puesto así pero éste no funciona siempre como debería de funcionar.

Yo lo que quiero hacer es que si esta línea se cumple:
$user = $1 if ( $doc =~ m/::(.*?)__/mosix);
imprima el $user, y si ...