This works for me on Windows 10 Perl v5.16.1 Win32::Sound 0.51
poj#!perl use strict; use Win32::Sound; printf "%s %s\n",$^V,$Win32::Sound::VERSION; Win32::Sound::Volume('100%'); for my $n ('01'..'10'){ my $wav = 'C:/Windows/media/Alarm'.$n.'.wav'; print "Playing $wav\n"; Win32::Sound::Play($wav); }
In reply to Re^4: Playing wav files
by poj
in thread Playing wav files
by merrymonk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |