Foro - Perl en Español

«Bueno este es el primer tutorial perl desde Unix numero uno,lo que se planea con este tutorial o esta serie de tutoriales es el aprendizaje de este lenguaje para el entendimiento del mismo, así que estos tutoriales están pensados para que sea como un empujón a escribir en este lenguaje de programación y leerlo también solo como un inicio,para que sea comprensible a futuros tutoriales que leas de otras webs».

Artículo

Version Tk de esta nueva version de este script para hacer ascii art desde una palabra.

Una imagen



El codigo


#!usr/bin/perl
#ASCII Art 0.2
#Version Tk
#Coded By Doddy H
#
#http://search.cpan.org/~lory/Text-Banner-1.00/Banner.pm
#

use Tk;
use Tk::Dialog;
use Text::Banner;

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

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

my $ven =
MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
$ven->title("ASCII Art 0.2 ...

Una posible versión mejorada de este script para hacer ASCII Art desde una palabra.

El código:

#!usr/bin/perl
#ASCII Art 0.2
#Coded By Doddy H
#
#http://search.cpan.org/~lory/Text-Banner-1.00/Banner.pm
#

use Text::Banner;
use Time::HiRes "usleep";

my $start = Text::Banner->new;

sub head {

my @logo = (
"#=============================================#", "\n",
"# ASCII Art 0.2 #", "\n",
"#---------------------------------------------#", "\n",
"# Written By Doddy H #", "\n",
"# Email: lepukehotmail #", "\n",
"# Website: doddyhackman.webcindario.com #", "\n",
"#---------------------------------------------#", "\n",
"# ...

Kevin Carillo, estudiante doctorado en la Universidad de Wellington (Nueva Zelanda) está haciendo una investigación sobre las comunidades de Código Fuente Libre/Abierto.

Si te has unido a la comunidad Perl en los dos últimos años, te agradecería que le prestaras algo de ayuda. Está interesado en escuchar a gente que contribuya, tanto de forma técnica como no técnica, y que haya tenido buenas o malas experiencias.

Son solo 20 minutos, anónima, y en inglés.

Encuesta ...

Version Tk de este simple script para hacer ASCII Art desde una palabra.

El código

[
#!usr/bin/perl
#ASCII Art 0.1
#Version Tk
#Coded By Doddy H
#Thanks to : reLlene,MARKO,explorer

use Tk;
use Tk::Dialog;
use List::Util "max";

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

my %letras = (

a => "
@
@
@ @
@ @
@ @
@ @
@@@@@
@ @
@ @
",

b => " ...

Sin mucho que decir dejo este simple script para hacer ASCII Art desde una palabra.

El código


#!usr/bin/perl
#ASCII Art 0.1
#Coded By Doddy H

use List::Util "max";
use Time::HiRes "usleep";

my %letras = (

a => "
@
@
@ @
@ @
@ @
@ @
@@@@@
@ @
@ @
",

b => "
@@@@
@ @
@ @
@ @
@@@@
@ @
@ @
@ @
@@@@
", ...

«Existen varios módulos de Perl exprofesos para Cisco, voy a probar el módulo Net-Telnet-Cisco»

Artículo

«Normalmente, un script utiliza una serie de argumentos, como pueden ser el nombre de un fichero que debe leer, el nombre de un fichero de salida que debe generar, etc. Típicamente, en un entorno unix estos argumentos se especifican en la línea de comandos. Por ejemplo:
$ procesa.pl --fichero 'datos.txt' --salida 'informe.txt' --desde '2012-01-01' --max-lineas 1000

En este artículo vamos a ver cómo procesar en Perl los argumentos que se reciben de este modo, y ...

Syntax Error - 1.ai - at 1dotai.pl line 2, near "print print("Free Hosting for Geeks.\n");

Me salió ese error, no sabía que usarán Perl la gente de Google... ¡je,je!, aunque prefiero mil veces el nuevo Outlook que en ese gmail pues lo uso de vez en cuando y me salió eso por ahí.

Pero quizás sea solo una publicidad o quien sabe... que será.

Bueno, como se me falseó la tecla enter de tanto escribir los mismos trucos para los suministros del juego Age of Empires 2 decidí hacer este simple script para que los haga por mi. Al terminar vamos a tener 30.000 de madera, alimentos, oro y piedra.

El código:


#!usr/bin/perl
#AOE2 Cheater 0.1
#Coded By Doddy H
#ppm install http://www.bribes.org/perl/ppm/Win32-GuiTest.ppd

use Win32::GuiTest qw(SendKeys);

head();

for my $se ( reverse 1 .. 10 ) { ...