问题很简单,就是需要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(); |