My Magic 8-Ball
My Magic 8-Ball script told me to blog something, so I'm blogging my Magic 8-ball script telling me to blog something.
I keep a simple little script on my desktop and execute it when I find myself procrastinating or at loose ends. Here it is if you want to clone it. It's not going to tell me to blog very frequently, as you can see.
$text1 = 'Get up & walk around a bit';
$text2 = 'Find some actual work to do';
$text3 = 'Surf the web';
$text4 = 'Learn something';
$text5 = 'Blog something';
$text6 = 'Go talk to somebody about that project';
$text7 = 'Clear the decks';
$text8 = 'Check notes';
@a = ($text2,$text2,$text2,$text2,$text1,$text1,$text3,$text4,$text4,$text4,$text4,$text5,$text6,$text6,$text7,$text8,$text8,$text8,);
print $a[int rand($#a)];
$goodbye = <STDIN>;