Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Beep!

by flgr (Sexton)
on Aug 26, 2001 at 22:40 UTC ( [id://107965]=perlquestion: print w/replies, xml ) Need Help??

flgr has asked for the wisdom of the Perl Monks concerning the following question:

Is there a way to beep using the pc speaker in perl? I know about print "\a" but I'd like to choose the frequency, too. And to make it even harder I'd like it to work without something external... (modules are ok, applications not)

Thanks.

$§=lc(sub{}^" \6 \n");$§=~s/\(.*\)//;for(split
('',$§)){$/=$_;for(5..7){$/++}$:.=$/}print$:;1

Replies are listed 'Best First'.
Re: Beep!
by scain (Curate) on Aug 26, 2001 at 23:02 UTC
    check out Win32::Sound for windows. I don't know if there is anything similar for unix.

    Scott

[reply]
      I'll try that one. Thank you. If somebody finds something better feel free to post, too. :)
[reply]
      A reply falls below the community's threshold of quality. You may see it by logging in.

Back to Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: perlquestion [id://107965]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others having a coffee break in the Monastery: (3)
As of 2024-04-26 02:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found