I think I saw it move!


Don't ask to ask, just ask
	PerlMonks

I think I saw it move!

by ChOas (Curate)

on Apr 09, 2001 at 15:51 UTC ( [id://70973]=obfuscated: print w/replies, xml )

Need Help??

Hey people!,

Hope you like it, tested under 5.6.0 AIX and Solaris
and Win32 ActivestatePerl 5.6 (thnx, crazyinsomniac).

#!/usr/bin/perl -w

                   use strict;
                 $|++;@_=split//,
         "|Just Another Perl Hacker|";
        sub ll{select(undef,undef,undef,
        0.05);}; my @l;$"="";for(0..12){
        ll;splice@l,@l/2, 0,@_[$_,-$_-1]
        ;print' 'x13,"@l\r";};while (1){
        @l=@_;for(0..11){pop@l;shift@l;
        ll;print "\r",' 'x(13+$_)," @l "
        ;};ll;ll;ll;for(reverse 1..12){
        splice@l,-1,0,$_[$_-1];splice@l,
        0,0,$_[-$_-1];ll;print"\r",' 'x(
        13+$_), "@l \b\b\b   ";};ll;ll;
               ll;@_=reverse@_;};
[download]

GreetZ!,

ChOas
print "profeth still\n" if /bird|devil/;