[Ilugc] randtype in perl
- From: lug@xxxxxxxxxxxxxxxxxx (Chandrashekar Babu)
- Date: Fri Jul 30 21:37:33 2010
Hi,
I ended up writing a really amazing perl script which belies what it
can in its size.
A shorter (perhaps one-liner version) below:
# Save as slowtype.pl
use Time::HiRes qw(usleep);
$| = 1 and usleep(20000) and print for (split //, join("",<>));
Can be run as a filter ;-)
perl slowtype.pl /etc/passwd OR
ps ax | perl slowtype.pl
Cheers,
Chandrashekar.
--
Chandrashekar Babu.,
Independent FOSS Technologist and Corporate Trainer.,
http://www.chandrashekar.info/
+91-9884386075, +91-9543019934,
+91-44-32216664
Other related posts: