Foro - Perl en Español

Un simple script en Perl para sacar un screenshot y subirlo a Imageshack.

El código:
#!usr/bin/perl
#DH ScreenShoter 0.1
#Coded By Doddy H
#ppm install http://www.bribes.org/perl/ppm/Win32-GuiTest.ppd
#ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd

use Win32::GuiTest
qw(GetAsyncKeyState GetForegroundWindow GetWindowText FindWindowLike SetForegroundWindow SendKeys);
use Win32::Clipboard;
use Time::HiRes "usleep";
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 ...

Un simple script para mandar mensajes de correo a donde quieran. Para usarlo necesitan una cuenta en Gmail. Lo nuevo de esta versión es que usé otro módulo que hace que el script no tenga tantas dependencias como en la última versión.

El código:
#!usr/bin/perl
#DH Bomber 0.2
#Coded By Doddy H

use Win32::OLE;

head();

print "\n Host : ";
chomp( my $host = <stdin> );

print "\n Port : ";
chomp( my $puerto ...

Hola.

Tengo el siguiente problema, agradeceré cualquier cooperación.

Descripción del entorno:

+ Windows 7 Pro 64
+ StrawberryPerl

Al Perl he agregado los siguientes módulos:

+ Net::DNS
+ PAR::Packer

Tengo un script que al ejecutarlo directamente con perl efectúa la labor sin inconvenientes.

Lamentablemente, después de compilarlo con pp, el ejecutable resultante no actúa tal como al ejecutarlo con Perl.

Este es el script:
#!C:\Perl\bin\perl -w
use Net::DNS;
my $res = Net::DNS::Resolver->new;
$res->udp_timeout(5);
my ...

Un simple script en Perl para HTTP FingerPrinting o por lo menos lo intenta xDD.

El código :

#!usr/bin/perl
#HTTP FingerPrinting 0.1
#Coded By Doddy H

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

print "\n-- == HTTP FingerPrinting 0.1 == --\n";

unless ( $ARGV ) {

print "\n Sintax : $0 <page> < -fast / -full >\n";

}
else {

print "\n Getting Data ...

«Temario

• Para qué sirve Perl
• Entornos de Desarrollo (GUI)
• Tipo de Variables
• Función Print
• Primer Programa : HolaBarcamp.pl
• Función STDIN
• Segundo Programa : BienvenidoAlBarcamp.pl
• Tercer Programa : OperacionesBasicas.pl
• Sentencia IF

Esta será la primera entrega de Programación en Perl, el presente material lo usaré para la exposición en el BarCamp Milagro donde seré expositor. Lo divido en partes para no hacer la publicación demasiado grande. ...

Hola estoy tratando de registrarme en madzip pero no puedo responder las preguntas en inglés como estas:

result = (fingersPerHand + eyesPerFace) * daysPerWeekend:

result = lettersInAlphabet / humansPerTwins - beersPerSixPack:

El primero es 49 pero no sé por qué me da mal. ¿ Estoy haciendo algo mal ?

Saludos a los integrantes del foro.

Tengo esta duda de cómo trabajan profesionalmente con Perl, entonces quería preguntarles si los scripts que hacen en Perl son para ejecutar en consola, o trabajan con librería gráfica con ventanas y botones, o su trabajo está orientado a ejecutar scritps en servidores embebiéndolos en HTML.

Mi duda es esa: en qué forma utilizan Perl, mayormente, si es para administrar sistemas siempre utilizan consola. Pues eso quería, si alguien ...

A lo largo de la mañana de hoy he intentado crear esta cuenta con dos de mis direcciones de correo. Ambas estaban baneadas. Me gustaría saber si se ha hecho un uso fraudulento de las mismas, o simplemente se trata de una decisión administrativa relacionada con el hecho de que han sido posiblemente utilizadas en alguna ocasión, por mí mismo, para crear una cuenta que posteriormente no ha sido utilizada en muchos meses.

Debo además ...

«sqliDorking.pl es un script en Perl de Crozz Cyborg que busca páginas vulnerables a inyecciones SQL usando dorks de Google o Bing. También acepta lista de dominios.»

Artículo

«En algunas versiones del comando ldapsearch es (o era) posible configurar con un parámetro (-T) que los valores largos de los atributos no tuvieran un salto de línea. En las versiones actuales con las que he trabajado ya no es posible así que os dejo un truco para parsear la salida de ldapsearch y con perl eliminar estos saltos de línea (útil para procesar la salida, por ejemplo).»

Artículo