[Ilugc] randtype in perl

  • From: girishvenkatachalam@xxxxxxxxx (Girish Venkatachalam)
  • Date: Fri Jul 30 19:13:43 2010

Dear all,

I ended up writing a really amazing perl script which belies what it
can in its size.

Like an IC chip. ;)

Checkout.

-Girish

$ cat randtype.pl
use Time::HiRes qw(usleep);

$| = 1;

open F, '/etc/passwd';

@lines = <F>;

for(@lines) {
        @chars = split //;
        for(@chars) {
                print;
                usleep(20000);
        }
}


Run with:

$ perl randtype.pl

-- 
Gayatri Hitech
web: http://gayatri-hitech.com

SpamCheetah Spam filter:
http://spam-cheetah.com

Other related posts: