I noticed that someone asked a very similar question on StackOverflow earlier in 2012, but I won't post a link to that page. I don't like that site and its rules. It's just a mess. So, let me copy and paste the whole page here:

Playing Sound in Perl script

I'm trying to add sound to a Perl script to alert the user that the transaction was OK (user may not be looking at the screen all the time while working). I'd like to stay as portable as possible, as the script runs on Windows and Linux stations.

I can 

use Win32::Sound;
Win32::Sound::Play('SystemDefault',SND_ASYNC);

[download]

for Windows. But I'm not sure how to call a generic sound on Linux (Gnome). So far, I've come up with 

system('paplay /usr/share/sounds/gnome/default/alert/sonar.ogg');

[download]

But I'm not sure if I can count on that path being available. So, three questions:

Is there a better way to call a default sound in Gnome Is that path pretty universal (at least among Debain/Ubuntu flavors) paplay takes a while to exit after playing a sound, is there a better way to call it? I'd rather stay away from beeping the system speaker, it sounds awful (this is going to get played a lot) and Ubuntu blacklists the PC Speaker anyway. Thanks!

asked Oct 10 '12 at 19:11

1 Answer

A more portable way to get the path to paplay (assuming it's there) might be to use File::Which. Then you could get the path like: 

use File::Which;
my $paplay_path = which 'paplay';

[download]

And to play the sound asynchronously, you can fork a subprocess: 

my $pid = fork;
if ( !$pid ) { 
    # in the child process
    system $paplay_path, '/usr/share/sounds/gnome/default/alert/sonar.
+ogg';
}

# parent proc continues here

[download]

Notice also that I've used the multi-argument form of system; doing so avoids the shell and runs the requested program directly. This avoids dangerous bugs (and is more efficient.)

answered Oct 10 '12 at 20:27

Also, I'm writing this in Perl/Tk. fork has to explicitly call CORE::exit() or POSIX::_exit() or horrible things happen. – charlesbridge Oct 24 '12 at 11:23

--- END OF PAGE ---

In reply to Re: Playing wav files by harangzsolt33
in thread Playing wav files by merrymonk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.