我查了以下链接：
http://search.cpan.org/~giulienk/Audio-Beep-0.11/Beep.pod
我尝试了以下代码：
use Audio::Beep;
$freq=440;
$milliseconds=100;
beep($freq, $milliseconds);
use Audio::Beep;
my $beeper = Audio::Beep->new();
my $music = "g' f bes' c8 f d4 c8 f d4 bes c g f2";
$beeper->play( $music );
但是这会出现以下错误：
无法在C：\ wamp \ www \ beep.pl第5行找到有效的播放器
答案 0 :(得分：3)
您误读了Perldoc。
你要么：
use Audio::Beep;
beep ($freq, $milliseconds);
OR
use Audio::Beep;
my $beeper = Audio::Beep->new;
my $music = "g' f bes' c8 f d4 c8 f d4 bes c g f2";
$beeper->play ($music);
另请查看Perldoc的Requirements部分。您可能没有所需的所有部分。有趣的是，版权是2004年，但不支持Windows 95，ME，98或XP--自版权以来已经过去十年的所有Windows操作系统。换句话说，这可能根本不会用于Windows。
答案 1 :(得分：2)
像ASCII铃声一样？
my $bell = chr(7);
print $bell;
可能无法使用，具体取决于终端的性质。
答案 2 :(得分：0)
在Windows上，我使用
use Win32::Sound;
Win32::Sound::Play("SystemDefault");