Foro - Perl en Español

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

Estimados, soy nuevo en esto de Perl... Así que no se molesten por las consulta si no es la adecuada... Tengo realizada una consulta a una tabla de una base en MySQL mediante la cual quiero mostrar ciertos datos de la tabla... Ojo: no todos los datos al ejecutar me muestran los siguientes errores.
temp1.cgi: Scalar value @dato better written as $dato at conexion.pl line 44.
[Mon Dec 3 10:25:03 ...

Hola, necesito expresiones regulares para filtrar los dominios con WWW y sin WWW de una página que imprime lo siguiente:

{"status":"Success", "resultsMethod":"database", "lastScrape":"2012-11-25 18:55:32", "domainCount":"56", "remoteAddress":"www.google.com", "remoteIpAddress":"74.125.224.177", "domainArray":[, , , , , , , , , , , , , , , , , , , , , , , ["google.com.tw", ...