in reply to Playing wav file to certain sound card/output
Here is a sample script to play a wave, there must be a place to select which card to use somewhere down in there.
#!/usr/bin/perl -w use SDL::Mixer; use SDL::Music; $mixer = eval { SDL::Mixer->new(-frequency => 44100, -channels => 2, - +size => 1024); }; $mixer->music_volume(100); $music = new SDL::Music './1bb.ogg' or die $!; #$sound = new SDL::Sound 'z.wav' or die $!; $mixer->play_music($music,5); #0 for single play while(1){ if( $mixer->playing_music() ){sleep(1)}else{ last} }
|
|---|