[Perl] Funcion marquesina()

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

Desde que vi por primera vez este No tienes permitido ver los links. Registrarse o Entrar a mi cuenta 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 No tienes permitido ver los links. Registrarse o Entrar a mi cuenta 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