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

を読み間違えました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 のRequirementsセクションも参照してください。必要な部品がすべて揃っていない可能性があります。興味深いことに、著作権は 2004 年ですが、Windows 95、ME、98、または XP はサポートされていません。これらはすべて、著作権以降の 10 年間に出ていた Windows オペレーティング システムです。つまり、これは Windows ではまったく機能しない可能性があります。

Answer 2

アスキーベルのような？

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

お使いの端末の性質によっては動作しない場合があります。