Cada vez estamos más cerca de la noche buena y de la navidad y aquí le traemos este sencillo programa en Perl con el que puedes adornar tu terminal con el espíritu navideño.
Con este programa tu consola Linux puede lucir como un árbol de navidad animado y a pesar de que su utilidad no vaya más allá de la parte estética de la consola, es algo que es bastante curioso y que podemos usar en estos días decembrinos, y si estás leyendo y estas interesado en probarlo, pues sigue leyendo que explico cómo hacerlo.
Entonces para poder visualizar el árbol en la consola es necesario tener instalado Perl en el sistema (con el que ocurrirá la magia), si ya contamos con el ya puedes instalar Acme::POE::Tree. Para esta instalación, debemos usar el módulo CPAN (Comprehensive Perl Archive Network) luego de arrancar con privilegios, vamos a escribir una línea sencilla de comandos:
perl -MCPAN -e 'install Acme::POE::Tree'
Ya una vez que hagamos esto, veremos el árbol de navidad animado en el shell con un comando muy sencillo:
perl -MAcme::POE::Tree -e 'Acme::POE::Tree->new()->run()'
También es posible customizar este árbol si asi lo deseas, solo debes editar el código fuente del script Perl y lo guardas en un fichero de texto (por ejemplo: navidad.pl) con el siguiente contenido:
#!/usr/bin/perl
use Acme::POE::Tree;
my $tree = Acme::POE::Tree->new(
{
star_delay =>1.5, #brillo durante 1.5segundos
light_delay => 2, #Centelleo de las luces por 2 segundos
run_for => 10, #Salir automáticamente tras 10 segundos de muestra
}
);
$tree->run();
Con este sencillo programa tu consola estará vestida con el espíritu navideño y como siempre esperamos sus comentarios y sus impresiones.
FELIZ NAVIDAD!!
5 comentarios, deja el tuyo
Eres grande RoBertucho.
«Ya una vez que hagamos esto, veremos el árbol de navidad animado en el shell con un comando muy sencillo:
perl -MAcme::POE::Tree -e ‘Acme::POE::Tree->new()->run()'»
Esta claro quien iba a olvidar comando tan sencillo que se memoriza solo con verlo durante 1 seg
Amigo @sli, realmente es simple, lo que sucede es que puede que no tengas nociones sobre programación. Permiteme explicarte a grandes razgos lo que pasa tras bambalinas.
Cuando no sostros escribimos en la terminal: » perl -MAcme::POE::Tree -e ‘Acme::POE::Tree->new()->run()’ «. Lo que estamos indicandole al ordenador es que el lenguaje de programación Perl ejecute la aplicacion que se le esta pasando como argumento al interprete de Perl 🙂
A mi no me gusta mucho Perl, prefiero Python como lenguaje de Script para mis pinguinos.
Saludos.
Esta mejor este
https://gist.github.com/franktoffel/aea4329b760eb3e72f4d
No confio si dice acme