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