Foro - Perl en Español

Tengo el siguiente código, pero no logro que mis datos no se dupliquen me podrían ayudar con el UPDATE por favor
#!/usr/bin/perl

##CONEXIÓN POSTGRES##################################
use ConectarDB;

my ( $dbh, $sth, $dbh2, $sth2 );
$dbh = ConectarDB->connect();
####INSTRUCCIÓN SQL PARA LA SELECCIÓN DE DATOS DE LAS TABLAS REQUERIDAS EN POSTGRES#####################
$sql = "SELECT A.idtiposcobros_a,B.impuesto_b,A.caja_a,A.partida_a,A.atl_a,B.pcancl_b,
hcn.valor_anter_hcn,hcn.valor_nuevo_hcn,cc.descripcion_cc
FROM his_cobros_nuevo hcn
LEFT JOIN cobros_campos cc ON (hcn.idcampo_hcn=cc.idcampo_cc)
LEFT JOIN cobrosxcuenta A ON (hcn.atl_hcn = A.atl_a)
LEFT JOIN cobros ...

Tengo el siguiente código:

use IO::Socket;

my $socket = new IO::Socket::INET(
LocalHost => 'localhost',
LocalPort => '8080',
Proto => 'tcp',
Listen => SOMAXCONN,
Reuse => 1);

my ($cliente,$buff,$kid);

while ($cliente = $socket->accept())
{
next if $kid = fork;

while(<$cliente>) {
$data.=$_;
}

print $data;

}

Me gustaría recibir la información en una sola variable porque no quiero usar el while(). Intenté usando $data.= de esta forma para poder mostrarlo después del while(), pero no ...

Hola, tengo el siguiente script:

use LWP::UserAgent;
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12');

my $response = $ua->get("http://www.supertangas.com");

print $response->headers();
#print $response->header('content-type');


El problema es que en la información que consigo de las cabeceras no encuentro el useragent que es lo que busco para mostrar en pantalla.

¿ Alguien sabe cómo conseguirlo ?

Hace poco comencé a usar git, y quería compartir este enlace que me parece interesante para lo que se inicien en el uso.

http://git-scm.com/book/es/

Saludos =^.^=

Buenos días:

He preparado un formulario que pasa un valor a un script que a su vez genera una página con datos sacados de una BBDD SQLite.

¿Cómo podría modificar la URL que se ve en la barra del navegador cuando devuelve la página? Ahora es del estilo http.//www.sitio.com/cgi-bin/script.pl

¿Se podría hacer con el módulo CGI.pm?

Gracias

Todos los hackers de los que he leído y que no están en la cárcel siempre están relacionados con ser programadores o algo así.

¿ Ustedes qué piensan ?

Tengo un problema al pasar a exe este script con perl2exe. El problema es que no se carga el segundo archivo cuando lo paso a perl2exe usando la opción -gui del mismo. Cuando no lo cargo en exe sí andan los dos archivos. El código es el siguiente:

use Win32::Job;


cargar_hide("coraje_uno.jpg");
cargar_hide("holamundo_dos.exe");


sub cargar_hide { # nombre de la función marcada anteriormente

my $job = Win32::Job->new;

$job->spawn( "cmd", qq{cmd /C $_}, { no_window => ...

Hola, perleros. Tengo un problema con el siguiente código para transferir ficheros de mi disco duro a un servidor remoto.

Quiero pasar todos los ficheros .htm que se encuentran en el directorio de mi ordenador /home/enric/htm al servidor (dispongo del nombre, usuario y contraseña).

Aquí va el código:
#!/usr/bin/perl -w

use strict;
use Net::FTP;

my $username = "meteoxx.com";
my $pwd = "xxxxx73";

my $ftp = Net::FTP->new("xxx.xx.132.xxx", Debug => 0) or die("No se pudo conectar ...

El proyecto PLEAC (Programming Language Examples Alike Cookbook) tiene como objetivo ser un referencia rápida de cómo resolver problemas de programación más comunes. La idea surgió a partir del libro Perl Cookbook, publicado por O'Reilly.

A partir de ejemplos escritos en Perl, la idea es hacerlos también en otros lenguajes.

Contiene mucho material y ejemplos de código, muy útiles para la gente que empieza con Perl.

Hola a todos,

Soy nuevo en el foro y en Perl también.

Quisiera saber antes si es posible enviar un objeto vía socket. El caso es que estoy haciendo la virtualización en contenedores Linux (LXC), y a través de una interfaz web en Dancer quiero enviar algunos eventos del "host" a los contenedores o máquinas virtuales para hacer algún tipo de acción como por ejemplo cambiar la configuración del VPN y cosas así. Ahora, de ...