perl如何实现beep功能

问题很简单,就是需要perl控制喇叭发出di的一声,就象c中的beep一样。首先,我试了print “\a”;的方式,结果表明,这个在

linux下可以很方便的实现翁鸣的东西,在windows下并不那么容易起作用。又试了下面的程序:

1
2
3
4
5
#!/usr/bin/perl -T
use strict;
$|=1;
print "\a";
exit 0;

把它保存为beep.pl后,在cmd当中执行:
perl -T beep.pl
可以在windows下实现翁鸣,但是它一用于程序当中让喇叭响一下就会让整个程序终止在那里,无法完成整个程序。
发现在windows下,使用Win32::Sound库可以很好的实现让喇叭出声。我们这么简单的一个要求,就有点杀鸡用牛刀的感觉了。
原代码如下:

1
2
3
4
5
6
#!/usr/bin/perl
use Win32::Sound;
 
Win32::Sound::Volume('100%');
Win32::Sound::Play("notify.wav");#notify.wav可以换成任意wav文件
Win32::Sound::Stop();

Leave a Reply

  

  

  

%d 博主赞过: