[Perl] Funcion marquesina()

BigBear · Septiembre 29, 2012, 11:07:00 PM

Desde que vi por primera vez este You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login en ruby siempre quise lograr el mismo efecto en perl , con la ayuda de explorer de perlenespanol logre hacer una funcion en perl que hace lo mismo que el You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login que mencione.

El codigo con un ejemplo de uso incluido

Código: perl


#!/usr/bin/perl
#Funcion marquesina()
#Coded By Doddy H

use Time::HiRes "usleep";

my @test = ("testando ahora now");

sub marquesina {

#Effect based in the exploits by Jafer Al Zidjali

my @logo = @_;

my $car = "|";

for my $uno(@logo) {
for my $dos(split //,$uno) {

$|++;

if($car eq "|") {
mostrar("\b".$dos.$car,"/");
}
elsif($car eq "/") {
mostrar("\b".$dos.$car,"-");
}
elsif($car eq "-") {
mostrar("\b".$dos.$car,"\\");
} else {
mostrar("\b".$dos.$car,"|");
}
usleep(40_000);  
}
print "\b ";
}

sub mostrar {
print $_[0];
$car = $_[1];
}

}

marquesina(@test);

#The End ?

[Perl] Funcion marquesina()

BigBear

Septiembre 29, 2012, 11:07:00 PM