Foro - Perl en Español

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

Tengo el siguiente script para hacer un pequeño instalador pero me pasa una cosa curiosa.


#!/usr/bin/perl
$banner ='
_________.__ .__ __ ________
/ _____/| |__ __ _________|__| | __\_____ \ ____
\_____ \ | | \| | \_ __ \ | |/ / _(__ < / \
/ \| Y \ | /| | \/ | < / \ | \
/_______ /|___| /____/ |__| |__|__|_ \/______ /___| /
\/ \/ \/ \/ ...

Hola,
Estoy haciendo un ejercicio y no entiendo una cosa.

Se supone (o lo que yo entiendo, vamos) que la diferencia entre ' y " es que ' no opera lo que encuentra dentro del string.
#!/usr/bin/perl
use warnings;
print '\tHola' , "\n"; # imprime \tHola
print "\tHola" , "\n"; # imprime Hola con tabulación

El ejercicio trata de escribir la frase:
"Hola", dijo Juan. "Has comido hoy"

print "\"Hola,\" dijo Juan. \"Has ...