大佬教程收集整理的这篇文章主要介绍了windows – 在Perl脚本中播放声音,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
use Win32::Sound; Win32::Sound::Play('SystemDefault',SND_ASYNC);
对于Windows.但我不确定如何在Linux(GnomE)上调用泛型声音.到目前为止,我已经想到了
system('paplay /usr/share/sounds/gnome/default/alert/sonar.ogg');
但我不确定我是否可以指望这条路可用.
那么,有三个问题:
>有没有更好的方法来调用Gnome中的默认声音
>这条路是非常普遍的(至少在Debain / Ubuntu风味中)
>播放声音后,paplay需要一段时间才能退出,是否有更好的方式来呼叫它?
我宁愿远离系统扬声器发出哔哔声,这听起来很糟糕(这会发挥很大作用),Ubuntu无论如何都会将PC扬声器列入黑名单.
谢谢!
File::Which
.然后你可以获得如下路径:
use File::Which; my $paplay_path = which 'paplay';
要异步播放声音,您可以分叉子进程:
@H_667_16@my $pid = fork; if ( !$pid ) { # in the child process system $paplay_path,'/usr/share/sounds/gnome/default/alert/sonar.ogg'; } # parent proc conTinues here另请注意,我使用了多参数形式的系统;这样做可以避免sHell并直接运行所请求的程序.这可以避免危险的错误(并且效率更高.)
以上是大佬教程为你收集整理的windows – 在Perl脚本中播放声音全部内容,希望文章能够帮你解决windows – 在Perl脚本中播放声音所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。