Foro - Perl en Español

Desde hace unas semanas, la gente que se dedica a crear las nuevas versiones del intérprete de Perl (los Perl 5 Porters), decidieron cambiar el algoritmo de los hashes, más bien, en el orden de la creación de los pares clave/valor.

Los hash en Perl v5 ya se ordenaban de forma aleatoria, por un tema que tiene que ver con asuntos de seguridad: los hash se pueden usar para temas de claves/autenticación, y en esos ...

Hola a todos, ¡ya estoy aquí de nuevo tocando un poquito las narices!

Nada, la pregunta es muy simple, aunque no he hecho la prueba directamente, sé que con XML::Simple puedo usar XMLout para introducir unos valores en un archivo xml, pero... ¿y si lo que quiero es sacar esos datos, que tengo en una serie de variables escalares, en formato XML pero por la salida estándar? ¿Tengo necesariamente que insertar los datos en un ...

Les agradecería si me pudiesen sugerir que entorno de trabajo comenzar a estudiar para realizar sistemas vía web (carritos de compras, sistemas de gestión, CMS, u otro tipo) . Qué es lo aconsejable: CGI::Application, Mojolicious, Dancer, ...

En general necesito, trabajar con sesiones, acceso y actualización de base de datos, generación de documentos tipo PDF, es decir de los framework que hay hoy cuál sería el más completo, que no sea Catalyst, para comenzar a ...

Hola,
he hecho un script que me permite abrir el archivo "funcions.txt" donde solo me interesan las líneas que contengan "glycolisis" o "neogenesis" porque llevan un código que necesito posteriormente.

Una vez consigo esta información quiero leer el archivo "lee.txt" para extraer de él las líneas que contengan los códigos anteriores y guardarlos en:

- GL.txt: si contiene los códigos de glycolisis
- NL.txt: si contiene los códigos de neogenesis

El script que he ideado ...

Bueno, siempre quise hacer una botnet en Perl. Logré programar una bien básica que tiene las siguientes opciones:

Ejecución de comandos
Simple GetIP
Listar procesos activos
Matar procesos
Listar archivos de un directorio
Borrar un archivo o directorio cualquiera
Leer archivos
Abrir y cerrar lectora
Ocultar y mostrar programas del escritorio
Ocultar y mostrar Taskbar
Mandar mensajitos molestos
Abrir Word y hacer que ...

Pues lo hago público porque algo raro me pasó en el día de hoy y es que al volcar un contenido tanto en el editor Vim como con gedit, y claro... no son para menos mirar sino la longitud que tiene ÉSTA línea, se trata de funciones de la famosa biblioteca de jQuery que quería guardar en un archivo para trabajar con ella y resulta que al hacer este copy & paste, a la hora ...

Traduccion a Perl (mega buggeada) del script que hizo Javier de PortalHacker para poder leer los mensajes privados y listar las categorías de un foro SMF.

El código:


#!usr/bin/perl
#SMF Manager 0.00001
#Coded By Doddy H

#ppm install http://www.bribes.org/perl/ppm/HTML-Strip.ppd

use LWP::UserAgent;
use HTTP::Cookies;

use HTML::Strip;

my $nave = LWP::UserAgent->new(
cookie_jar => HTTP::Cookies->new(),
requests_redirectable => ,
timeout => 5,
agent =>
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);

print qq( ...

Buen día.

Quería saber si alguno de ustedes ha abierto algún puerto usando el módulo Win32::SerialPort.

use Win32::SerialPort;

my $ob = Win32::SerialPort->new ('COM32') || die "Can't open serial port ";
$ob->baudrate(115200);
$ob->parity("none");
$ob->databits(8);
$ob->stopbits(1);
$ob->handshake("none") || die "fail setting handshake";
$ob->error_msg(1);
$ob->user_msg(1);
$ob->lookclear;

my $command="AT";
my $object = $ob->write($command ."\r");warn "write failed\n" unless ($object);

my $answer = $ob->input;

print "$answer";


Ese es el código que tengo. Intento mandar el comando y espero una ...

Necesito generar un pdf y colocarle unas marcas de agua a un documento que ha subido el usuario en formato Word. Yo sé que generar el pdf desde un html es posible. De hecho, lo puedo hacer. Lo que no sé es cómo convertir el Word en html para luego pasar a pdf.

Así puedo generar el pdf desde un html:


my $pdf = "prueba_externo.pdf";
print $root_htmldoc . "<br>";
print $root_path;
my $commandline ...

Tengo el siguiente código :


use LWP::UserAgent;

my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);

my $url = "http://www.portalhacker.net" . "/index.php?action=login2";

print $url;

my $user = "test";
my $pass = "test";

my $code = tomar( $url, { "user" => $user, "passwrd" => $pass, "cookielength" => "9000", "hash_passwrd" => "" } );

print $code;

if ( $code =~ /Hola <span>(.*?)<\/span>/ ) {
my $name = $1;
print "Bienvenido $name\n"; ...