3

我查看了以下链接:

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

4

3 回答 3

4

像 ASCII 钟一样?

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

可能不起作用,具体取决于您的终端的性质。

于 2013-03-01T06:21:25.073 回答
4

你误读了Perldoc.

您可以:

use Audio::Beep;
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);

另请查看 Perldoc 的需求部分。您可能没有所需的所有部件。有趣的是,版权是 2004 年,但不支持 Windows 95、ME、98 或 XP——所有在版权保护后的前十年中就已经出现的 Windows 操作系统。换句话说,这可能根本不适合 Windows。

于 2013-03-01T14:30:46.170 回答
0

在我使用的 Windows 上

use Win32::Sound;
Win32::Sound::Play("SystemDefault");

https://metacpan.org/pod/Win32::声音

于 2020-03-28T05:40:38.837 回答