2013-03-01 3 views
1

에서 경고음을 추가하는 방법은 다음 링크 업 보았다 :

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

+2

인쇄해도 "\ a"로 인쇄됩니다. 완벽하게 잘 작동합니다. –

+0

시스템에 적합한 플레이어 모듈을 설치 했습니까? 여기에 나열된 모듈을보십시오 : http://search.cpan.org/~giulienk/Audio-Beep-0.11/. 이것을 사용하려면 서브 모듈 중 하나 (예 :'Audio :: Beep :: Linux :: PP' 등)가 필요합니다. 또한,'Audio :: Beep' 문서는 여러분이 사용하고자하는 플레이어를 지정하는 방법을 보여줍니다 : http://search.cpan.org/~giulienk/Audio-Beep-0.11/Beep.pod#OO_Methods –

+0

@ dan1111 : 플레이어 모듈은'Audio-Beep'의 일부이며 핵심 모듈이 있으면 플레이어 모듈은 생략되지 않을 것입니다. – Borodin

답변

1

ASCII 벨과 비슷합니까?

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

터미널의 특성에 따라 작동하지 않을 수 있습니다.

+0

작동하지만 인쇄 "\ a"와 동일합니다. –

+0

그것은 나를 위해 작동하지 않았지만 "\ a"를 인쇄했습니다; 일했다. 오, 디버그 창에서 "my $ bell ="을 할 수 없다고 생각합니다. "$ bell ="이어야합니다 – nurp

3

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에 대한 지원은 없습니다. Windows 운영 체제는 저작권이 만료 된 지 10 년이 넘었습니다. 즉, Windows가 전혀 작동하지 않을 수도 있습니다.

+0

나는 * 당신이 * POD를 잘못 읽은 것 같아요. Windows NT, 2000 또는 XP가 필요하며 95, 98 및 ME는 제외됩니다. OP는 그가 XP에 아무 문제도 없다고 말합니다. 그리고 같은 프로그래밍에서 두 가지 형식의 호출이 공존 할 수 없다고 의심 할 이유가 없습니다. – Borodin