Happy New Year

Diesen Perl-Einzeiler einfach in eine Shell kopieren, Enter tippen und sich freuen.

perl -e '$n="e[0;40;32m";
for(1..10){print"ec$nn".$"x(15)."e[1;35mY$n".$"x15;for(1..8)
{print$/.$"x($a=16-$_);$c=int rand($d=2*$_);
for(2..$d)
{$f=31+int rand(3);print($_-$c?"X":"e[$f;1m*$n")}
print$"x$a}print $/.$"x(31).
"e[0mn".$"."I wish you all a happy new year".
$/x2;select$q,$q,$q,0.5}'

(Autor unbekannt)

Kommentare

Wunderbar :)

Genial :)

4momo.de, (c) 2003, 2004, 2005, 2006 by Moritz Beller