[Ilugc] randtype in perl
- From: lawgon@xxxxxxxxxxxxxxx (Kenneth Gonsalves)
- Date: Fri Jul 30 20:11:03 2010
On Friday, July 30, 2010 07:12:47 pm Girish Venkatachalam wrote:
$ cat randtype.pl
use Time::HiRes qw(usleep);
$| = 1;
open F, '/etc/passwd';
@lines = <F>;
for(@lines) {
@chars = split //;
for(@chars) {
print;
usleep(20000);
}
}
chinese posting with or without tag is a no no in this list ;-) Could we have
an english translation so that we can find out what this thing does and attempt
to replicate it?
--
regards
kg
http://lawgon.livejournal.com/
Other related posts: