my (@wsn, $js, @wavf); $wsn[0] = 'SystemDefault'; $wsn[1] = 'SystemAsterisk'; $wsn[2] = 'SystemExclamation'; $wsn[3] = 'SystemExit'; $wsn[4] = 'SystemHand'; $wsn[5] = 'SystemQuestion'; $wsn[6] = 'SystemStart'; for($js = 0; $js <= 6; $js++) { print "before play $wsn[$js]\n"; Win32::Sound::Play($wsn[$js]); print "after play\n"; }
In reply to Re^2: Playing wav files
by merrymonk
in thread Playing wav files
by merrymonk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |