El blog tecnológico de Blag.: Perl

Tuesday, November 15, 2016

LED es mi nuevo Hello World - Tiempo de Perl

Como lo prometí...acá está mi LED Numbers a la Perl...y como siempre...por favor tengan en cuenta de que soy un novato en Perl...Yo se que hay maneras más eficientes, cortas y consisas de hacer esta aplicación...pero...que tan bueno es un código introductorio que usa código oscuro y arcano? Yo no quiero que la gente se asuste con Perl...Quiero que la gente diga "Hey...eso no se ve tan dificil...Yo quiero aprender Perl"...

Así que...aquí está...

LedNumbers.pl
#!/usr/bin/perl use strict; use warnings; use diagnostics; my %leds = ( 0 => ' _ ,\| \| ,\|_\| ', 1 => ' ,\| ,\| ', 2 => ' _ , _\| ,\|_ ', 3 => '_ ,_\| ,_\| ', 4 => ' ,\|_\| , \| ', 5 => ' _ ,\|_ , _\| ', 6 => ' _ ,\|_ ,\|_\| ', 7 => '_ , \| , \| ', 8 => ' _ ,\|_\| ,\|_\| ', 9 => ' _ ,\|_\| , _\| ' ); print "Enter a number: "; my $num = <>; my @numbers = ( $num =~ /\d/g ); for my $i (0 .. 2){ for my $j (0 .. scalar(@numbers) - 1){ my @line = split /\,/,$leds{$numbers[$j]}; print $line[$i]; } print "\n"; }

LedNumbers.pl

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

my %leds = (
 0 => ' _  ,| | ,|_| ',
 1 => '  ,| ,| ',
 2 => ' _  , _| ,|_  ',
 3 => '_  ,_| ,_| ',
 4 => '    ,|_| ,  | ',
 5 => ' _  ,|_  , _| ',
 6 => ' _  ,|_  ,|_| ',
 7 => '_   , |  , |  ',
 8 => ' _  ,|_| ,|_| ',
 9 => ' _  ,|_| , _| '
);

print "Enter a number: ";
my $num = <>;
my @numbers = ( $num =~ /\d/g );

for my $i (0 .. 2){
 for my $j (0 .. scalar(@numbers) - 1){
  my @line = split /\,/,$leds{$numbers[$j]};
  print $line[$i];
 }
 print "\n";
}

Y acá está el resultado...

Y para que lo sepan...esta es mi versión numero 23 del código...sip...he escrito mi aplicación de LED Numbers en 24 lenguages hasta el momento -;) Cuál va a ser mi punto de quiebre? Quien sabe...la programación es el límite -;)

Saludos,

Blag.
Development Culture.

Mi primer post en Perl

Así que...he comenzado a aprender Perl...porque? 3 simples razones...

Amo la programación.
Para mí...Perl pertenece a la Santa Trinidad de los Lenguajes de Programación junto con Ruby y Python (Disculpa PHP...pero no llegas a la lista)
Porque...es Perl! Vamos!

Entonces...he estado leyendo Beginning Perl...que dicho sea de paso es un libro impresionante...

Si estás utilizándo algun tipo de Linux o Mac...ya deberías tener Perl instalado por defecto...si estás usando Windows...bueno...siempre puedes descargarlo e instalarlo -:)

Hasta el momento...Amo Perl...es impresionante...y ahora puedo porque las personas dicen que tanto Python como Ruby piden prestado bastante de Perl...y claro...PHP lo hace también...

Por supuesto, no tengo mucha experiencia...pero como siempre...Comienzo haciendo un simple y pequeño programa para posicionarme en el camino correcto...así que aquí está mi applicación de lista de números Fibonacci...

fibonacci.pl
#!/usr/bin/perl use strict; use warnings; use diagnostics; sub fib { my ($num,$a,$b) = @_; my $result = ''; if ($a>0 && $num>1){ $result = $result . ($a+$b) . " " . fib($num-1,$a+$b,$a) }elsif($a == 0){ $result = $a . " " . $b . " " . ($a+$b) . " " . fib($num-1,$a+$b,$b) } return $result } print "Enter a number: "; my $num = <>; print(fib($num,0,1));

fibonacci.pl

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

sub fib {
 my ($num,$a,$b) = @_;
 my $result = '';
 if ($a>0 && $num>1){
  $result = $result . ($a+$b) . " " . fib($num-1,$a+$b,$a)
 }elsif($a == 0){
  $result = $a . " " . $b . " " . ($a+$b) . " " . fib($num-1,$a+$b,$b)
 }
 return $result
}

print "Enter a number: ";
my $num = <>;

print(fib($num,0,1));

Y aquí esta el resultado...

Claro...ya tengo m clásica aplicación "LED Numbers" lista...pero eso va en otro post -;)

Saludos,

Blag.
Development Culture.