perl - 如何在perl中添加警告蜂鸣声

Question

我查看了以下链接:

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 行找不到工作播放器

Answer 1

喜欢 ASCII 钟声？

my $bell = chr(7);
print $bell;

可能无法正常工作，具体取决于您的终端的性质。