[FLUG] matrix.pl

From: apt Gecco <gecco@xxxxxxxxxxxx>
To: fanolug@xxxxxxxxxxxxx
Date: Thu, 21 Feb 2002 23:59:30 +0100

Mailing List del Fortunae LUG
=============================

stasera coi miei amici ho visto matrix su dvd, e in proposito ho questo
codice in perl

#!/usr/bin/perl

use strict;

my (@A) = (' ','  ','  ','  ',' ','  ','  ','  
','.','o','O','0','*','@');
my ($B,$C,$D,$E) = (60,9,0,'');
my (@F);
my ($G,$H) = ('',300); # $H controls animation duration: 100 is about
3.5 seconds

while($H) {
        for($D=0;$D<$C;$D++) {

                if($H - ($B+5) > 0) {

                        $E = int(rand($#A));
                        $F[$D] = $A[$E] . $F[$D];
                        $F[$D] = substr($F[$D],0,$B);

                } else {

                        $F[$D] = ' ' . $F[$D];
                        $F[$D] = substr($F[$D],0,$B);
                }

        }
                
        foreach $G (@F) {
                print $G . "\n";
        }

        system(clear);

        $H--;
}


bau
-- 
Machine gave me some freedom.
--
apt-get... un presidente operaio...

[FLUG] matrix.pl

Other related posts: