Can't help you with your Perl question, but I have used this one for a
while on WinX (freeware):
http://cheqsoft.com/break.html
-Nilanjan
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Phil Mitchell
Sent: Tuesday, December 20, 2005 2:28 PM
To:
On Tue, Dec 20, 2005 at 11:28:03AM -0800, Phil Mitchell wrote:
I want to write a little alarm script to remind myself to take breaks
:) --- but I'm getting stuck on how to play a soundfile from within
perl. I don't want to use the terminal bell (\A) bc I have it turned
off in gnome, bc it's
UPDATE:
Thanks everyone for your responses! I updated my script, passing a
reference...and it didn't resolve the issue. The issue ended up being an
external module. More specifically, during initialization of the external
module's object. Here is a piece of the original code:
use
On 12/20/05, Phil Mitchell [EMAIL PROTECTED] wrote:
I want to write a little alarm script to remind myself to take breaks :)
--- but I'm getting stuck on how to play a soundfile from within perl. I
don't want to use the terminal bell (\A) bc I have it turned off in gnome,
bc it's annoying.
Phil Mitchell wrote:
...all I want to do is play a soundfile.
Am I missing an easy solution?
Isn't audio playback on your typical Linux box as trivial as copying an
audio file to the appropriate audio device? Google turned up examples
such as:
cat crash.au /dev/audio
cat door_open.au
Hello Guys,
More Perl Style lessons for me, if anyone wants to chip in. Following
is the script on the chopping block today - in the comments the parts
that I did not manage to elegantize as much as I wanted.
use Term::ANSIColor qw(:constants);
use strict;
My choice for this task is festival. The voice-quality is nearly
retro synthetic, and it will get me up for a fifteen-second stretch
break.
my shell script, which is named nag:
#!/bin/bash
echo please get oop | festival --tts
sleep 3
# blank the screen to be really obnoxious
#xset dpms force
FL == Federico Lucifredi [EMAIL PROTECTED] writes:
FL use strict;
where is use warnings?
FL my @commands = ( '/bin/netstat -ape | /usr/bin/wc -l',
FL '/usr/bin/lsof | wc -l',
FL '/bin/ps ax -L | wc -l' );
FL my @triggers = qw( 0 0 0);
since
On 12/20/05, Federico Lucifredi [EMAIL PROTECTED] wrote:
Hello Guys,
More Perl Style lessons for me, if anyone wants to chip in. Following
is the script on the chopping block today - in the comments the parts
that I did not manage to elegantize as much as I wanted.
use Term::ANSIColor