Foro - Perl en Español

Versión Tk de un programa para buscar proxies de forma online.

Una imagen



El código


#!usr/bin/perl
#Proxy Tester 0.5
#Version Tk
#Coded By Doddy H

use Cwd;
use Tk;
use Tk::FileSelect;
use Tk::Dialog;
use LWP::UserAgent;

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

#if ($^O eq 'MSWin32') {
#use Win32::Console;
#Win32::Console::Free();
#}

my $color_texto = "green";
my $color_fondo = "black";

my $newd =
MainWindow->new( ...

«

• Inicializar una variable con una fecha
  
  • Función time
  • Funciones localtime y gmtime
  • Módulo Time::Local
• Formatear fechas
• Interpretar una fecha contenida en una cadena
• Módulos DateTime

»

Artículo

«Nota rápida: salió la nueva versión del módulo de OpenCL para Perl. En unos meses, cuando Diegui termine de dar su materia, haremos una serie de artículos sobre programación en paralelo con MPI, CUDA y OpenCL».

Artículo

«En Perl disponemos de un tipo de variable denominado ‘hash’, que permite almacenar conjuntos de pares (clave, valor). Es equivalente a lo que en otros lenguajes se denomina “array asociativo”».

Artículo

«Redis es un servidor de estructuras de datos; permite almacenar, ordenar y operar datos estructurados en simples cadenas, hashes, listas, sets y sorted sets. Puede ser utilizado como un “gestor” de base de datos NoSQL»

Artículo

«Una forma sencilla pero flexible de leer en Perl el contenido de una URL es hacer uso del módulo LWP::UserAgent.

El siguiente ejemplo muestra cómo leer el contenido de la url http://www.ejemplo.com:»

Artículo

«Un script CGI debe tener acceso a la información que le pasa el servidor web:

• El nombre de host, la url y los argumentos (query string) con los que se ha hecho la petición al servidor que ha provocado la ejecución del script.
• Los cookies que son de aplicación.
• Los parámetros y sus valores, si se trata de una solicitud POST de un formulario
• etc…

El script debe realizar su ...

Un simple programa en Perl para leer el correo usando Gmail.

Una imagen



El codigo


#!usr/bin/perl
#Gmail Inbox 0.1
#Version Tk
#Coded By Doddy H
#Modules
#ppm install http://www.open.com.au/radiator/free-downloads/Net-SSLeay.ppd
#http://search.cpan.org/~sullr/IO-Socket-SSL-1.54/SSL.pm
#http://search.cpan.org/~fays/GMail-Checker-1.04/Checker.pm

use Tk;
use Tk::HList;
use Tk::ROText;
use GMail::Checker;
use HTML::Strip;

if ( $^O eq 'MSWin32' ) {
use Win32::Console;
Win32::Console::Free();
}

my $yeahfucktk = MainWindow->new();
$yeahfucktk->title(
"Gmail Inbox 0.1 || Coded by Doddy H || Status : <None>");
$yeahfucktk->geometry("870x220+20+20");
$yeahfucktk->resizable( ...

Version Tk de un cliente FTP que hice en Perl.

Las opciones que tiene son:

Listado de archivos en un directorio
Borrar archivos y directorios
Crear directorios nuevos
Renombrar
Descargar y subir archivos

Una imagen:


El código del programa:

#!usr/bin/perl
#FTP Manager 0.2
#Version Tk
#Coded By Doddy H

use Tk;
use Tk::FileSelect;
use Cwd;
use Net::FTP;

if ( $^O eq 'MSWin32' ) {
use Win32::Console;
Win32::Console::Free(); ...

«En MySQL, la manera estándar de especificar una fecha en una sentencia INSERT es usando el formato YYY-MM-DD. Este es también el formato que obtenemos cuando ejecutamos una sentencia SELECT.

Cuando accedemos a MySQL desde Perl, lo hacemos creando sentencias SQL, por lo que deberíamos convertir a dicho formato las fechas que queremos escribir, e interpretarlo (parse) al leer fechas.

Pero cuando queremos obtener en perl la fecha en curso, disponemos de la función ‘time()’, ...