This is my second time posting this, if anyone can even verify that the 
code is correct, I would be happy.  I'm trying to open a PCM 11,025 Hz, 16 
Bit, Mono sound file and play a segment of it. Everytime I try it, it gets 
"stuck" at the "1 until $WAV->Status()" part. I don't get any die's or 
anything like that...any ideas why this doesn't work?

######### BEGIN CODE ##########

use Win32::Sound;
$WAV = new Win32::Sound::WaveOut(11025,16,1);

$WAV->Open("alphabet.wav"); # File exists
$WAV->Play(171295,177541); #This sample segment does exist...
1 until $WAV->Status();   # Hangs here and does not even play sound...
$WAV->Close();

######## END CODE #########

Any help would be appreciated!
-Patrick Herbst

---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
         [EMAIL PROTECTED]
For non-automated Mailing List support, send email to  
         [EMAIL PROTECTED]

Reply via email to